i can't replace the '\' to '/'

i can't replace the '\' to '/'
for example:
$sMetaKeywordsfile="C:\somepath\test\test.asp"
$sMetaKeywordsfile= ~ s/\\/\//;

i want to get "c:/somepath/test/test.asp"

Your valuable suggestion will be appreciated.

Find more posts tagged with

Comments

kaalraa

i can't replace the '\' to '/'
for example:
$sMetaKeywordsfile="C:\somepath\test\test.asp"
$sMetaKeywordsfile= ~ s/\\/\//;

i want to get "c:/somepath/test/test.asp"

Your valuable suggestion will be appreciated.

Which OS you are working on?

Adam Stoller

i can't replace the '\' to '/'
for example:
$sMetaKeywordsfile="C:\somepath\test\test.asp"
$sMetaKeywordsfile= ~ s/\\/\//;

i want to get "c:/somepath/test/test.asp"

Your valuable suggestion will be appreciated.

There are at least two problems with the code you show above:

additional_series_line.PNG

additional_series_line_with_grouping.PNG

script_additional_series_line.TXT

nipper

i can't replace the '\' to '/'
for example:
$sMetaKeywordsfile="C:\somepath\test\test.asp"
$sMetaKeywordsfile= ~ s/\\/\//;

i want to get "c:/somepath/test/test.asp"

Your valuable suggestion will be appreciated.

In addition to the mistakes Adam pointed out, you would only be changing the 1st one, since regex is one at a time, unless you specifiy otherwise, which you did not.

Use tr that is the best.

Migrateduser

use something like:

$str =~ s#\\#\/#g

Adam Stoller

use something like:

$str =~ s#\\#\/#g

In general (although admittedly a small number in the grander scheme of things):

$str =~ tr|\\|/|;

is more efficient than

$str =~ s|\\|/|g;

use Benchmark;

timethese(1000, {
    substitute => \&do_sub,
    transliterate => \&do_trans});

sub do_sub {
    my $str = q();
    foreach (0..1000) {
        $str = q(\this\is\a\test\string);
        $str =~ s|\\|/|g;
    }
    return $str;
}

sub do_trans {
    my $str = q();
    foreach (0..1000) {
        $str = q(\this\is\a\test\string);
        $str =~ tr|\\|/|;
    }
    return $str;
}

Benchmark: timing 1000 iterations of substitute, transliterate...
substitute:  2 wallclock secs ( 1.88 usr +  0.01 sys =  1.89 CPU) @ 529.10/s (n=1000)
transliterate:  1 wallclock secs ( 0.45 usr +  0.00 sys =  0.45 CPU) @ 2222.22/s (n=1000)

Your numbers may vary - the above was from my Mac with 2gb RAM using Perl 5.8.8.