Re: cut of first char of a string

First, but not last:

$_ = '12345';s/(.(.*))/$2or$1/e
[download]

Comment on Re: cut of first char of a string Download Code

Replies are listed 'Best First'.
Re^2: cut of first char of a string by Anonymous Monk on Mar 08, 2005 at 13:47 UTC
That doesn't work correctly: `perl -wle '$_ = '10'; s/(.(.*))/$2or$1/e; print' 10` [download]	[reply] [d/l]
Re^3: cut of first char of a string by sh1tn (Priest) on Mar 08, 2005 at 14:16 UTC
Yes, that doesn't, but this does: `s/(.(.*))/($2ne'')?$2:$1/e` [download]	[reply] [d/l]
Re^4: cut of first char of a string by Anonymous Monk on Mar 08, 2005 at 15:08 UTC
`$_ = "a"; s/(.(.*))/($2ne'')?$2:$1/e; print` [download] That gives "a". I'd expect nothing to get printed - if I remove the first character of a one-character string, I should be left with the empty string, not with the same string.	[reply] [d/l]
Re^5: cut of first char of a string by sh1tn (Priest) on Mar 08, 2005 at 15:27 UTC