One more simple perl + regular expression question

in the original string it could be

hits=50
hits=1
hits=567
hits=0
hits=2341


similarly for offset

If you only want to replace the examplers above, try:

open( FILE, "< $filename" ) or die "Can't open $filename : $!";

while( <FILE> ) {
    ($query) =~ /GET (.*) HTTP/;
    $query =~ s/hits=50/hits=500/;
    $query =~ s/offset=50/hits=500/;
    print "$query\n";
}
close FILE;

If you want to replace any number, try:

open( FILE, "< $filename" ) or die "Can't open $filename : $!";

while( <FILE> ) {
    ($query) =~ /GET (.*) HTTP/;
    $query =~ s/hits=\d+/hits=500/;
    $query =~ s/offset=\d+/offset=0/;
    print "$query\n";
}
close FILE;


Cheers Xanius

how can we make it more precise? I mean consider & also while defining this  expression?

if you want to replace all of but only the explicit figures above:

open( FILE, "< $filename" ) or die "Can't open $filename : $!";

while( <FILE> ) {
    ($query) =~ /GET (.*) HTTP/;
    $query =~ s/hits=(0|1|50|567|2341)\&/hits=500\&/;
    $query =~ s/offset=\d+/offset=0/;
    print "$query\n";
}
close FILE;

Hey Xanius
Thanks.

Actually, what I meant by giving those examples was that it could be any number. But as its a url, u might have similar patter elsewhere also..


like sdf34r32rf*Q$TR#@RGFERhits=324234r!@&wqrefjki

I want to change the instances where hits=<some no> is enclosed between "&"

You could put a & before the hits and offset...

$query =~ s/\&hits=\d+\&/\&hits=500\&/;
$query =~ s/\&offset=\d+\&/\&offset=0\&/;

Hi avi_india,

> Actually, what I meant by giving those examples was that it could be any number. But as its a url, u might have similar patter elsewhere also..


>like sdf34r32rf*Q$TR#@RGFERhits=324234r!@&wqrefjki

I probably misunderstood your last question; Adam314 is right, but ten it should be necessary to have the \& only up front to allow


$query =~ s/\&hits=\d+/\&hits=500/;
$query =~ s/\&offset=\d+/\&offset=0/;


Xanius

> Actually, what I meant by giving those examples was that it could be any number. But as its a url, u might have similar patter elsewhere also..
> like sdf34r32rf*Q$TR#@RGFERhits=324234r!@&wqrefjki
> I want to change the instances where hits=<some no> is enclosed between "&"

Do you mean that the above example string should be altered to sdf34r32rf*Q$TR#@RGFER&hits=324234&r!@&wqrefjki?

If so, try something like:

#!/usr/bin/perl -w
use strict;

my $str = 'sdf34r32rf*Q$TR#@RGFERhits=324234r!@&wqrefjki';

$str =~ s/(hits\s*=\s*\d+)/&$1&/;

print $str;