Help for this page

Select Code to Download


  1. or download this
    perl -e 'print "aa\r\nab\r\n\r\naa\nbb\n"' >test
  2. or download this
    perl -e '$/="\r\n\r\n"; print "\tMy item: $_" while (<>);' <test
  3. or download this
            My item: aa
ab
 
        My item: aa
bb
  4. or download this
     perl -e 'undef $/;@a=split(/\r\n\r\n/,<>); print join "\t My item: ", @a;' <test