Public Scratchpad | Download, Select Code To D/L |
Feel free to comment on the development of Text::CSV_XS in this node.
my @ids = map { s{<.+?>} {}gr =~ s{^(\d+(stnrdh{2}|))} {NUMWORDS ($1)}er =~ s{(.)\.\w{2,5}?$} {$1}r =~ s{&} {and}gr =~ s{&} {and}gr =~ s{Æ} {Ae}gr =~ s{Ç} {C}gr =~ s{Ü} {U}gr =~ s{(è|é|ê)} {e}gr =~ s{#} {No}gr =~ s{ } {_}gr =~ s{^\w:.\-} {}gr } grep { defined } @base;
my @array = map { some_sub (s/^[\*\+-] (.+)/$1/r, $opt); } @another_array;
sub fancy_map { my ($opt, $list) = @_; map { ref $_ ? fancy_map ($opt, $_); : do { my $before = $opt->{'before'} ? $opt->{'before'}.' ' : ''; my $after = $opt->{'after'} ? ' '.$opt->{'after'} : ''; $before.$_.$after; } } @{$list}; }