Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ksh equivalent 2
- Thread starter cryptoadm
- Start date
Annihilannic
MIS
As var as I know (and I'm no Perl wizard) you have to do it in multiple steps in Perl... I'd also be keen to know if there is such a shortcut which leaves the original variable unmodified? I have been doing something ugly like this:
Annihilannic.
Code:
$var1 = $var; # prevent original
$var1 =~ s/.*\///;
print "$var1\n";Annihilannic.
-
2
- #3
Hi
Feherke.
Code:
[u] DB<1> [/u]$var='abc/123/def';
[u] DB<2> [/u]print $var=~m,.*/(.*),;
def
[u] DB<3> [/u]print $var=~m,.*?/(.*),;
123/def
[u] DB<4> [/u]print $var=~m,(.*?)/,;
abc
[u] DB<5> [/u]print $var=~m,(.*)/,;
abc/123Feherke.
- Thread starter
- #4
- Thread starter
- #5
I was using index, rindex, and substr to get them but it took multiple variables like this:
$pos = rindex("$_", "#");
$pos1 = rindex("$_", "/");
$path = substr("$_", 0, $pos1);
$flen = length($_);
$flen1 = ($flen-$pos1);
$filename = substr("$_", $pos1+1, $flen1);
$year = substr("$_", $pos+1, 4);
$year1 = substr("$year", 2, 2);
$month = substr("$_", $pos+5, 2);
$pos = rindex("$_", "#");
$pos1 = rindex("$_", "/");
$path = substr("$_", 0, $pos1);
$flen = length($_);
$flen1 = ($flen-$pos1);
$filename = substr("$_", $pos1+1, $flen1);
$year = substr("$_", $pos+1, 4);
$year1 = substr("$year", 2, 2);
$month = substr("$_", $pos+5, 2);
Hi
cryptoadm, I only answered your question. I do not suggest to use my answer. (-:
Supposing your question is related to thread205-1538095, where your problem was the execution speed, better go with your function based solution. Regular expressions are nice and short, but usually they are not speed champions.
Feherke.
cryptoadm, I only answered your question. I do not suggest to use my answer. (-:
Supposing your question is related to thread205-1538095, where your problem was the execution speed, better go with your function based solution. Regular expressions are nice and short, but usually they are not speed champions.
Feherke.
Annihilannic
MIS
While discussing ||= on this thread I found this handy tip on man perlop:
Which means my code above can be shortened to:
Much more ksh-like.
Annihilannic.
Code:
Unlike in C, the scalar assignment operator produces a valid lvalue.
Modifying an assignment is equivalent to doing the assignment and then
modifying the variable that was assigned to. This is useful for
modifying a copy of something, like this:
($tmp = $global) =~ tr [A-Z] [a-z];Which means my code above can be shortened to:
Code:
( $var1 = $var ) =~ s/.*\///;
print "$var1\n";Much more ksh-like.
Annihilannic.
- Status