Help for this page

Select Code to Download


  1. or download this
    my $subtext = "sub {\n";
    $subtext .= join (" and ",
    ...
    $subtext .= ";\n}";
    my $selectsub = eval($subtext);
    my @ret = grep(&$selectsub, @{ $self->get_data() });
    
  2. or download this
    --
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
    map{y/X_/\n /;print}map{pop@$_}@/for@/