Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    $s =~ s/ /./g;
    $s =~ s/\cJ/<<LF>>\cJ/g;
    print substr($s,0,500), "\n";
    
  2. or download this
    Using LWP to grap http://groups.yahoo.com.
    Printing first 500 characters.
    ...
    ..<<LF>>
    ......<META.content="free.email.groups,.mailing.lists,.communities,.ma
    +jordomo,.e-mail,.bounce.handling,.mlm.software,.listserv,.Yahoo!.Grou
    +ps,.newletters,.announcement,.email.lists,.list.hosting".name=keyword
    +s><<LF>>
    ....<META.content="Yahoo!.Group
    
  3. or download this
    @_="the journeyman larry disciple keeps learning\n"=~/(.)/gs,
    print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))