Help for this page

Select Code to Download


  1. or download this
    /etc/skel$ perl -le '$foo=qq(/); print "YES" if $foo =~ m|/|;'
YES
/etc/skel$ perl -le '$foo=qq(/var); print "YES" if $foo =~ m|/|;'
YES
  2. or download this
    print "enter text\n";
chomp(my $fs = <>);
...
/
YES     /
first test
  3. or download this
    if ( $fs !~ m|/\w+| ) {  ##-- only look for / --##
    find_me($File::Find::prune = 1); ##-- false, do not prune past / -
+-##
...

}