Help for this page

Select Code to Download


  1. or download this
    ...
my $name =<STDIN>;
print $sock $name;   # $name still holds the newline you got from STDI
+N
  2. or download this
    print $sock "NAME: $name";
  3. or download this
        /^NAME: (\w*)/ and ... # do something with $1