Help for this page

Select Code to Download


  1. or download this
    $foo = <<'__HERE__';
\\some.address.or.whatever\subdir\
__HERE__
chomp $foo;
print ">", $foo ,"<";             # >\\some.address.or.whatever\subdir
+\<
  2. or download this
    sub s2b {   # slash to backslash
  (my $str = shift) =~ tr#/#\\#;
...
}
 
my $path = s2b '//some.address.or.whatever/subdir/';
  3. or download this
    use Data::Dump;

...
__HERE__

dd \%path;
  4. or download this
    {
  deinstall => "\\\\other.address.or.whatever\\subdir\\",
  install   => "\\\\some.address.or.whatever\\subdir\\",
}