perldoc perlre
...
\u uppercase next char (think vi)
...
RichKersh
Last Activity: Sep 14 '09, 10:03 AM
Joined: Sep 14 '09
Location: earth
-
Code:my $t="hello hello word"; $t=~s/(\b)(\w)/$1\u$2/g; print $t;
Leave a comment:
-
Sorry, but simplest solution is:
where text.txt contains user dataCode:use strict; use warnings; my $file = 'text.txt'; open FILE, $file or die "can't open $file"; my @text = <FILE>; close FILE; my ( @ids ) = ( join '', @text ) =~ /hop (\d+)[^\d]+?9227493/g; printf "%s\n", ( join "\n", @ids );
Leave a comment:
No activity results to display
Leave a comment: