Help for this page

Select Code to Download


  1. or download this
    my $x = <<'EOX';
A {
...
EOX
$x =~ s/A\s*\{.+?\}//s;
print "x='$x'\n"; # empty
  2. or download this
    perl -pe 's/A\s*\{.+?\}//s' <<'EOX'
A {
...
}
EOX
# prints exactly what the input is
  3. or download this
    x='s/A\s*\{.+?\}//s'
echo $x
# s/A\s*\{.+?\}//s
  4. or download this
    cat > infile<<'EOX'
A {
...
EOX
perl -pe 's/A\s*\{.+?\}//s' infile
# or perl -i -pe 's/A\s*\{.+?\}//s' infile