- or download this
printf "foo\nversion '1.2.36'\nbaz\n" | perl -MData::Dumper -pi -e "
+next unless /version/; ($version) = /version\s+('1\.2\.36')/; print $
+version"
...
version '1.2.36'
baz
- or download this
$ cat wtf.pl
#!/usr/bin/perl
...
$ printf "foo\nversion '1.2.36'\nbaz\n" | perl wtf.pl
1.2.36
- or download this
printf "foo\nversion '1.2.36'\nbaz\n" | perl -pi -e 'if ($_ =~ m/ver
+sion\s+.\d+[.]\d+[.](\d+)/) { my $v1 = quotemeta $1; my $v2 = $1 + 1;
+ $_ =~ s/$v1/$v2/ }'
foo
version '1.2.37'
baz