Help for this page

Select Code to Download


  1. or download this
    open LOG, "home.txt" or die $!;
while(<LOG>) {
    print "$1<br>" if m/\b([\w\d]+)$/;
}
close LOG;
  2. or download this
    print "$1<br>" if m/\S+\s+[^\/]+\/(\S+)/;