Help for this page

Select Code to Download


  1. or download this
    print "Enter a first name:  " ;
$fname = <STDIN> ;
chomp $fname ;
  2. or download this
    print "Enter a first name: ";
chomp($fname = <STDIN>);
  3. or download this
    if ($ans !~ m/[Yy]/) 
{
...
  $quit = 0 ;
}
  4. or download this
    
if( $answer =~ /^[Yy]/)
...
.
.