Help for this page

Select Code to Download


  1. or download this
    18:23 >perl -wE "my $s = qq[abc\n\t  \ndef\n  \ngh]; $s =~ s/^\s*$/X/m
+g; say $s;"
abc
...
gh

18:24 >
  2. or download this
    18:24 >perl -wE "my $s = qq[abc\n\t  \nd\tef\n  \ngh]; $s =~ s/[ \t]+/
+X/mg; say $s;"
abc
...
gh

18:39 >