So you've managed tro get your script to run on your machine, but it fails on a web server. You've already cheched permissions...
OK, I've got a couple things you can try:
-Make sure that you upload the perl in ASCII, not binary.
-If you developed the perl on a windows box, you may have the...
Any string that is a match for regex /Priority:2/ , contains the chars 'Priority: 2' and is therefore not going to be equal to the literal '/TCMP/'. This is true for all cases. I think you're looking for "does not match" regex /ICMP/.
try using:
($line !=~/ICMP/) instead of ($line...
I decided to go with www.no-ip.com
For $24 bucks a year, they will redirect www.yourdowmain.com traffic to http://<whatever_ip_address>:<port_number>
you can also add free hostnames so they can be redirected in the same way.
I added http://utah.hopto.org to my hostnames at no-ip.com, just to...
I'm in the same boat. I was thinking of finding a cheap/free host for a single page, have the DNS point to that, and then redirecting to the :8080 url for the big stuff (in my case I want to put up an image gallery using Apache/PHP/mySQL). Just a thought...
I just went through this today. I removed linux from an XP/Mandrake dual booting laptop, in order to use vmware to host a linux guest. I just used a Win98 boot CD and, to restore the master boot record, at the a prompt I did:
a:\> fdisk /mbr
That worked just fine.
Short answer:
@DIRLIST = qw(.) unless @DIRLIST; #I always have my scripts in the 'root' directory to be scanned, which works with this line.
use File::Find;
sub process_file {
print "$File::Find::name\n"; # or whatever;
}
find(\&process_file, @DIRLIST);
Good Luck,
-Gabe
Cara, thanks for giving me a reason to have the regex lesson. Poof, that was tricky!
I set this up for three cases:
1) you have "" in the data instead of client-matter number
2) you have nothing between the commas for a client matter number
3) you have a client matter number (I did...
Cara, this is very mysterious!
hmmm...
It's working without issue on my side with some test data:
Filename= newPBX_DATA.TXT
"jones", "022550.00001", "abc"
"smith", "035700.02000", "dce"
And here's the script I'm using:
NOTE: I...
I was a sysadmin/database dude at a law firm for a while, and remember having to deal with Client-Matter numbers in our systems, so I can empathize. I didn't know any Perl then and had to make do with Excel/Word/VBA/VB. I think it's great that you're learning Perl to get your work done. There is...
I liked your breakdown/rebuild idea, and I support it 100%for splitting/joining arrays like you did.
But for string substitions, replacing "in place" is really good.
It was kinda tricky with the period, since is has significance that requires escaping (twice!).
Using your code, I came...
I know time is short, but learning perl is well worth whatever time you put into it. Here's a very commented script which should you what you're looking for. I don't have dig on my system, so i could not test that aspect of the script, but the 2 loops work, and the ip address builder does...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.