Perl | #!/usr/bin/perl # du har mai - Anonymous - m32912190

#!/usr/bin/perl
# du har mail, du har mail, du har mail
# det plingar till, du kan svara om du vill
use strict;
use warnings;
use encoding 'utf8';
use Weather::Google;
use Getopt::Long;

# fucking options here
our $irc;
GetOptions(
    'irc'   => \$irc,
);

my $city;
if(@ARGV) { # where to look?
    $city = $ARGV[0];
}
else {
    $city = 'norrk�ping';
}

my $gw = Weather::Google->new($city); #weather object

my @info = ($gw->current_conditions( #current conditions for $city
                                    'temp_c',
                                    'wind_condition',
                                    'humidity',
                                    'condition',
                                ));

foreach(@info) {
    if(!defined) {
        print "$0: undefined vars; learn to spell kkthx\n";
        exit 1;
    }
}

sub irc {
    print "� ".ucfirst($city),": $info[0]�C [$info[3]] | $info[1] | $info[2]\n";
}

# fucking do not forget to let getopt do its work first and then, later on,
# check if $foo_option is def or not, and THEN call the sub. Otherwise you'll
# be sitting there again smoking 2 packs of cigs trying to figure out why the
# fuck your vars are uninitialized.
if($irc) {
    irc();
}
else {
    main_f();
}

# main formatting
sub main_f {
    printf("%0s\n\n %-0s\n %0s\n %0s\n %0s\n",
            '� '.ucfirst($city)." Today:",
            '� '.'Temperature: '.$info[0]."�C",
            '� '.'Condition: '.$info[3],
            '� '.$info[1],
            '� '.$info[2],
        );
}