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 Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
remaining string
- Thread starter Oostwijk
- Start date
I assume you mean the first letter of a string.
There are a number of ways to do this (in true perl style), such as;
$string = s/^[A-Za-z]{1}([A-Za-z]+)$/$1/;
Assuming you have a letter in first place.
or even;
$string = reverse($string);
chop $string;
$string = reverse($string);
There are a number of ways to do this (in true perl style), such as;
$string = s/^[A-Za-z]{1}([A-Za-z]+)$/$1/;
Assuming you have a letter in first place.
or even;
$string = reverse($string);
chop $string;
$string = reverse($string);
Code:
$str =~ s/^.(.*?)$/$1/s;Sincerely,
Tom Anderson
Order amid Chaos, Inc.
- Status
Similar threads
