string parsing using perl

bharatbsharma · 12-05-2007, 05:16 AM

Using perl i want to parse a string

My string is

UMS5.0/MTC/SHI/UDR/UMSV5.0Sh_DSR_UDR_06.db_ins: private_id = "usermtc@bbc.com";

i want a output (o/p)

UMS5.0/MTC/SHI/UDR/UMSV5.0Sh_DSR_UDR_06.db_ins

that is every character appearing from ":" to end of string have to be deleted.

How this can be done?

matthewg42 · 12-05-2007, 06:04 AM

Code:

my $str = 'UMS5.0/MTC/SHI/UDR/UMSV5.0Sh_DSR_UDR_06.db_ins: private_id = "usermtc@bbc.com";';

print "before: $str\n";
$str =~ s/:.*$//;
print "after:  $str\n";

output:

Code:

before: UMS5.0/MTC/SHI/UDR/UMSV5.0Sh_DSR_UDR_06.db_ins: private_id = "usermtc@bbc.com";
after:  UMS5.0/MTC/SHI/UDR/UMSV5.0Sh_DSR_UDR_06.db_ins

You could also use split, like this:

Code:

$str = (split(":", $str))[0]