Help for this page

Select Code to Download


  1. or download this
    @lines = sort {($b =~ /(?:\|([\w\s]+)){2}/)[0] <=> ($a =~ /(?:\|([\w\s
+]+)){2}/)[0]
     } @lines;
  2. or download this
    $b = "0|aa aa|1998|aaa a|a aaa|10|aa a aa";
@a = ($b =~ /(\|[\w\s]+){2}/);
use Data::Dumper;
print Dumper(\@a);
  3. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/