Search Results

Could this help you ?

#!/usr/bin/perl

use strict;

my ($app,$cmd);
open(FH,"<","/tmp/mail") or die "Fail- $!\n";
open(FW,">","/tmp/mail_test") or die "Fail- $!\n";
while(<FH>) {
chomp;...

See if this can help your output:
sed 's/"\(.*\)" ".*:..\(.*\):\(....\)\/.*/\1 \2 \3/'

sudo is probably the best idea, I think it's available for Mac OSX

I don't really get what you're after but here's some hint for bash:
#!/bin/bash

CONFIGFILE=<path to file>
LOGFILE=<path to log file>

read URL < "$CONFIGFILE"

echo "Fetching $URL..."
wget...

perlre - perldoc.perl.org (http://perldoc.perl.org/perlre.html)

Each ( ) pair creates a backreference that can later be accessed (until next regex) using $1, $2, $3 ... $n. So, the first...

In addition to the explanation posted above, I'd like to add that this -


$x{$1} = "\"$2$append\"";


was done so that the value of each hash key would be of the form


"http://someURL"...

$
$
$ cat -n apps.pl
1 #!perl
2 use strict;
3 use warnings;
4 my $append = "cgi-bin/jboss/apps.joa/health?method=checkurl";
5 my %x;
6 while (<DATA>) {
...

Don't forget to put selinux back to
# setenforce Enforcing
afterwards, after you are done.

That wouldn't help, because port 8080 is also closed by default.

The easiest way is to start "System > Administration > Firewall", select "Trusted Services", scroll down to "WWW (HTTP)" and check...

You should also check the firewall. Port 80 is not allowed by default.