Linux Tips and Tricks

Find Weather using perl script Weather::Google

August8

Find Weather using perl script Weather::Google

1) Install the Weather::Google using the Synaptic Package Manager (in Ubuntu)

2) copy paste the below code and save it as googleweather.pl

#!/usr/bin/perl
use Weather::Google;
 
# If you plan on using locations with non-ASCII characters
use encoding 'utf8';
 
my $gw;
 
## Initialize the module
$gw = new Weather::Google('Singapore'); # City name
 
## Get some current information
 
my @info;
@info = $gw->current('temp_f','temp_c','humidity','wind_condition');
 
## Forecast
 
print "Today's high: ", $gw->forecast(0,'high'),"\n";
print "Today's low: ", $gw->forecast(0,'low'),"\n";
 
## Forecast information:
my $info = $gw->forecast_information;
print "Zip: " . $info->{postal_code}."\n";
 
3) Execute the code using perl googleweather.pl

$ perl googleweather.pl
Today's high: 90
Today's low: 77
Zip: Singapore

If you want to install the package in windows then issue the below command in command prompt

1	ppm install Weather-Google

posted under Uncategorized | No Comments »

Rename the files using perl script

August7

Rename the files using perl

we can use the method rename for renaming the files using perl script.

$ cat rename.pl
#!/usr/bin/perl
 
use strict;
use warnings;
 
foreach $_ (@ARGV) {
my $oldfile = $_;
s/.bk//g;
rename($oldfile, $_);
}

Now i am creating some .bk files using the touch command

1
2
3

$ touch a.txt.bk
$ touch b.txt.bk
$ touch c.txt.bk

Now i have 3 .bk files in my current directory.

$ ls -lrt
total 4
-rw-rw-r-- 1 kamaraj kamaraj 126 Aug 7 23:38 rename.pl
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 a.txt.bk
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 b.txt.bk
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 c.txt.bk

execute the perl file as below.

1	$ perl rename.pl *.bk

Now you can see all the files are named ( .bk was removed )

$ ls -lrt
total 4
-rw-rw-r-- 1 kamaraj kamaraj 126 Aug 7 23:38 rename.pl
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 a.txt
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 b.txt
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 c.txt

If i want to revert back the filenames to .bk format, then you can use the below one-liner

$ ls *.txt | perl -lane '$origname=$_;s/.txt/.txt.bk/;rename($origname,$_)'
 
$ ls -lrt
total 4
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 a.txt.bk
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 b.txt.bk
-rw-rw-r-- 1 kamaraj kamaraj 0 Aug 7 23:38 c.txt.bk
-rw-rw-r-- 1 kamaraj kamaraj 126 Aug 7 23:42 rename.pl