<br><br><div class="gmail_quote">On Tue, Jul 8, 2008 at 11:00 AM, Madison Kelly <<a href="mailto:linux@alteeve.com">linux@alteeve.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hi all,<br>
<br>
I've got a simple problem I often come across, and I've got a way to make it work. However, I've always felt there must be a more ... elegant way of doing it.<br>
<br>
For example, let's say I want to copy a variable and strip a bit off the end;<br>
<br>
my $foo="ABC-987-01";<br>
my $bar=$foo;<br>
$bar=~s/(\w+-\d+)-\d+/$1/;<br>
# $bar now 'ABC-987'.<br>
<br>
That's three lines. Is there a way to do this in one line? Specifically, is there a way to assign '$1' to a new variable in one go?<br>
</blockquote><div><br> ($bar) = ($foo =~ /(\w+-\d+)-\d+/);<br><br></div></div><br>