Initial commit.

yagecibycocin.pl

@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings "all";
+
+use XML::Simple;
+use bytes;
+
+my $PROGRAM_NAME = $0;
+
+my $xml = `curl -s -q 'https://pogoda.yandex.ru/static/cities.xml' >/tmp/cities.xml`;
+if ($? != 0){
+	print "Network error, quitting.";
+	exit 1;
+}
+
+sub getIdByCountryAndCity(@); # supply Country and City in RUSSIAN NOTATION !
+sub usage();
+
+usage() unless (defined ($ARGV[0]) and ($ARGV[0] ne ''));
+usage() unless (defined ($ARGV[1]) and ($ARGV[1] ne ''));
+
+my $id = getIdByCountryAndCity($ARGV[0], $ARGV[1]);
+if (defined($id)){
+	printf("%s\n", $id);
+}else{
+	print "Error - no such id @ yandex weather xml data list\n";
+	exit 1;
+}
+exit 0;
+
+sub getIdByCountryAndCity(@){
+	my ($country, $city) = @_;
+	my $id = undef;
+	my $simple = XML::Simple->new( KeyAttr => '' );
+	my $ref = $simple->XMLin('/tmp/cities.xml');
+	foreach (@{$ref->{country}}){
+		my %hash = %$_;
+		my $a = sprintf("%s", $hash{'name'});
+		next unless ($a eq $country);
+		foreach(@{$hash{'city'}}){
+			next unless(${$_}{'content'} eq $city);
+			$id = ${$_}{'id'};
+                        last;
+		}
+	}
+	return $id;
+}
+
+sub usage(){
+	print <<EOF;
+yagecibycocin
+Get yandex city id by country name and city name. 
+usage: $PROGRAM_NAME Country City
+  if country name or city consists of multiple words, it must be enclosed with quotation
+       $PROGRAM_NAME \"Country Name\" \"City Name\"
+
+Script understands country name and city name exactly as they appear at
+http://weather.yandex.ru/static/cities.xml
+EOF
+	exit 0;
+}