Hi Gurus,
I have the following function which extracts the workstation id's
sub get_work_station_id {
# return W0010A40C06D0 from vbop-0x4E580000:W0010A40C06D0:windows
my $id = shift;
return $1 if $id =~ /:([^:]+):/;
return;
}
at present it is working fine...
This function extracts all the workstation ids, but I want
Machines prefixed with W - 9999
Machines prefixed with A - 9999
Machines prefixed with X - 9999
Machines other - 9999
Total - 99999
Can you help me how to get with prefixed letter respectively
rgds
Venkat
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
