Using perl 5.10

mfontani · Nov 18, 2009 · 88c2a63 · 88c2a63
1 parent 2be946f
commit 88c2a63
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 13 deletions.
diff --git a/scripts/list_servers.pl b/scripts/list_servers.pl
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use Net::RackSpace::CloudServers;
+use 5.010_000;
 
 my $user = $ENV{'CLOUDSERVERS_USER'} or die "Need CLOUDSERVERS_USER environment variable set";
 my $key  = $ENV{'CLOUDSERVERS_KEY'}  or die "Need CLOUDSERVERS_KEY environment variable set";
@@ -16,4 +17,3 @@
 $CS->get_server();
 warn "** \$CS->get_server_detail..\n";
 $CS->get_server_detail();
-
diff --git a/scripts/serverinfo.pl b/scripts/serverinfo.pl
@@ -2,34 +2,37 @@
 use strict;
 use warnings;
 use Net::RackSpace::CloudServers;
+use 5.010_000;
 
 my $user = $ENV{'CLOUDSERVERS_USER'} or die "Need CLOUDSERVERS_USER environment variable set";
 my $key  = $ENV{'CLOUDSERVERS_KEY'}  or die "Need CLOUDSERVERS_KEY environment variable set";
 
 $Net::RackSpace::CloudServers::DEBUG = 1;
+warn "** Creating Net::RackSpace::CloudServers object..\n";
 my $CS = Net::RackSpace::CloudServers->new(
   user => $user,
   key  => $key,
 );
-
+warn "** Getting flavor details..\n";
 my @flavors = $CS->get_flavor_detail;
-my @images  = $CS->get_image_detail;
+warn "** Getting images details..\n";
+my @images = $CS->get_image_detail;
+warn "** Getting server details..\n";
 my @servers = $CS->get_server_detail;
 
-print '#' x 72, "\n";
+say '#' x 72;
 
 foreach my $server (@servers) {
-  print "Server ID ", $server->id, " Name ", $server->name, "\n";
-  print "Server status ", $server->status || 'undef', " progress ", $server->progress || 'undef',
-    "\n";
-  print "Public IPs: ",  join( ' ', @{ $server->public_address  || () } ), "\n";
-  print "Private IPs: ", join( ' ', @{ $server->private_address || () } ), "\n";
+  say "Server ID ", $server->id, " Name ", $server->name;
+  say "Server status ", $server->status || 'undef', " progress ", $server->progress || 'undef';
+  say "Public IPs: ",  join( ' ', @{ $server->public_address  || () } );
+  say "Private IPs: ", join( ' ', @{ $server->private_address || () } );
   my $img = ( grep { $_->id == $server->imageid } @images )[0];    # find image by id
   die "Can't find image ID ", $server->imageid, " on list" if ( !defined $img );
-  print "Image ID ", $server->imageid, " (", $img->name, ")",
-    " status ", $img->status || 'undef', " progress ", $img->progress || 'undef', "\n";
+  say "Image ID ", $server->imageid, " (", $img->name, ")",
+    " status ", $img->status || 'undef', " progress ", $img->progress || 'undef';
   my $flv = ( grep { $_->id == $server->flavorid } @flavors )[0];    # find flavor by id
   die "Can't find flavor ID ", $server->flavorid, " on list" if ( !defined $flv );
-  print "Flavor ID ", $server->flavorid, " (", $flv->name, ")",
-    " ram ", $flv->ram || 'undef', " disk ", $flv->disk || 'undef', "\n";
+  say "Flavor ID ", $server->flavorid, " (", $flv->name, ")",
+    " ram ", $flv->ram || 'undef', " disk ", $flv->disk || 'undef';
 }