Re: Interactive Perl script

[Utilitarian]

Okay as a fellow Irish Arsenal fan I'll help, but really you should show what you have tried as this site is for those interested in learning Perl rather than those interested in getting code for free</rant>

#!/usr/bin/perl
use strict;
use warnings;

sub confirm{
   my $question=shift;
   my $reply = "";
   print "$question (y/n)?";
   while ($reply !~ m/^[yn]/i){ # allow for pedants who reply "yes" or
+ "now"
      chomp($reply=<STDIN>);
   }
   return $reply=~m/^y/i ? 1 : undef;
}
print confirm("can you write device drivers")?"wow, you must be very s
+killed\n":"neither can i, i am just shell script\n";

BTW: the Dublin Perl mongers group is holding a re-inauguration at OSBarCamp, feel free to come along.

[Irishboy24]

Hey, Thank you very much. your response was really helpful. appreciate your help. BTW i am Indian, i just like the way the Irish drink and am a very very big fan of Arsenal. cheers for your reply!! thanks! Go Gunners

[Utilitarian]

Ahh, you probably won't be in Dublin for OSBarCamp so.
While my script answers your immediate question, the point of it was to understand all the elements within it.
• use strict and warnings, seems a pain at first but it will do 70% of your debugging
• When you have something like a confirmation dialog make a routine out of it, because you'll need to do it again. These routines can ultimately be built up into your own modules which take the drudgery out of development
• The ternary operator is quite useful(<condition>?true:false;)
• But as has been said above, in order to learn you have to make your own mistakes and the satisfaction of solving a puzzle is a great memory enforcement
BTW: Arshavin, brilliant or what ;)