Re^5: read an integer from a file

[Boldra]

"it doesn't work" is a singularly useless phrase in IT.

Nevertheless, I googled "squid perl redirect" and found the script I think you are using as a pattern and adapted it for what I think you are trying to do.

#!/usr/bin/perl
use strict;
use warnings;
use IO::All;
use 5.010;

$| = 1;
while (<>) {
    my $status = io('status.txt')->all;
    my $url = ( split )[0];
    if( not $status # almost same as if( $status == 0 )
            and $url =~ /\Q123.1.34.107:8080\E/ ) { 
        say "301:http://123.1.34.107:8080/Web"
    } else {
        say $url
    }
}

Try this outside of squid first. If it works on the command line, but with squid, it's probably permissions or the file path. Check the squid logs for more information.

[Anonymous Monk]

#!/usr/bin/perl --
use strict;
use warnings;
use autodie;
use 5.010;

$| = 1;
while (<>) {
    open my $fh, "<", "status.txt";
    my $status = join "",<$fh>;
    close $fh;
    my $url = ( split )[0];
    if( not $status # almost same as if( $status == 0 )
            and $url =~ /\Q123.1.34.107:8080\E/ ) { 
        say "301:http://123.1.34.107:8080/Web"
    } else {
        say $url
    }
}