Help for this page

Select Code to Download


  1. or download this
     
my $line0 = <STDIN>;
my $line1 = <STDIN>;
...
chomp $line1;
chomp $line2;
@strings = ($line0, $line1, $line2);
  2. or download this
    print "How many line"
my $num = <STDIN>;
...
my $line;
chomp ($line = <STDIN>);
}