Help for this page

Select Code to Download


  1. or download this
    sub not_so_special {
    my $s = shift;
...
    $cols[2] =~ s/=(.+)/'=' . (' ' x length($e = $1))/e;
    return join ';', @cols, $e
}
  2. or download this
    sub new {
    my @cols = split /;/, shift, -1;
...
    $cols[2] .= ' ' x length $1;
    return join ';', @cols, $1
}
  3. or download this
    use Syntax::Construct qw{ /r };
sub newer {
    shift =~ s/^([^;]*;[^;]*;)(.*?=)([^;]*)(;.*)/"$1$2" . (' ' x lengt
+h $3) . "$4;$3"/er
}