On Aug 9, 2005, at 6:20, Vema Venkata wrote:
sub get_work_station_id { # return W0010A40C06D0 from vbop-0x4E580000:W0010A40C06D0:windows my $id = shift; return $1 if $id =~ /:([^:]+):/; return; }
[snip]
Can you help me how to get with prefixed letter respectively
Change the body of the subroutine with: my $id = shift; my ($machine, $prefix) = $id =~ /:(([^:])[^:]*):/; return $machine, $prefix; and use it like this: my ($machine, $prefix) = get_work_station_id($id); if (defined $machine && defined $prefix) { # process them } The regexp above is not very readable, maybe this would be enough: my ($machine, $prefix) = $id =~ /:((.).*?):/; or this my ($machine, $prefix) = $id =~ /:((\w)\w*):/; -- fxn -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>