Help for this page

Select Code to Download


  1. 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
    
  2. or download this
    $ cat wtf.pl
    #!/usr/bin/perl
    ...
    
    $ printf "foo\nversion   '1.2.36'\nbaz\n" | perl wtf.pl
    1.2.36
    
  3. 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