Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations MikeeOK on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Search results for query: *
- Users: satyamneerumalla
- Order by date
-
print matches
Hope this answers your question!! use strict; my $input; #Search for "zoo" in the text that was input by the user print "Enter your input, program checks for the word 'zoo' :"; $input= <STDIN>; chomp($input); if($input=~/zoo/) { print "success"; } else { print "faiilure"; }- satyamneerumalla
- Post #3
- Forum: Perl
-
Parsing a string using regex
Hi, I think this is what you are expecting. It splits the string into words each in a new line. use strict; my $str = '018:000000000000100778,010:abcdefghij,004:xx,xx,003:bbb,017:abcdefghijklmnopq,001:x'; $str =~ s/(,\d\d\d\:)/\n/g; $str =~ s/(\d\d\d\:)//g; print $str; Output: -------...- satyamneerumalla
- Post #6
- Forum: Perl
