Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l 
my $yo = 'C:/as/d/f/e/r/g/a/d/f/g/';
...

C:/as/d/f/e/r/g/a/d/f/g/ at - line 7.
  2. or download this
    use YAPE::Regex::Explain;
die YAPE::Regex::Explain->new(qr/^(\w):\\(.+)\\?/)->explain;
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------
  3. or download this
    perl -le"print for split m{[:\\/]+}, shift, 3" C:\y\o\d\a
C
y
o\d\a