Try this
#
my $text = this is a website: www.hello-world.com and an e-mail:
[EMAIL PROTECTED];
@found = $text =~ m/\s+((?:[\w\d\-\~]{2,}[@|\.](?:[\w\d\-\~]{2,}\.?)+))/g;
print Found something interesting:\n, join \n, @found if @found;
#
which uses the
Dax T. Games [mailto:[EMAIL PROTECTED]] wrote:
The Win32::API code below works for changes to the
Environment section of the registry but what about other
parts of the Registry. I am particularly changes made to the
HKEY_CURRENT_USER\Control Panel\Mouse.
The docs for SendMessage are
On Fri, 1 Mar 2002, Michal Jurosz wrote:
Hello.
This code unzip files from $zip_path to $extr_path, but when you
uncomment, tree lines below, then this code unzip files from zip_path
to './'. Where is a bug?
Sorry, but my english is so bad.
---
use
Only problem with using html::parser is I'm not parsing an html document...
There are no html tags to hook onto ... if there were, I'd be happy.
What the domain my script must do is this...say we have some text:
Once upon a time, in a galaxy far, far away. Yogi ([EMAIL
Title: Walking subdirectories and files
I am trying to write a Perl script that will touch every subdirectory and file. The problem is the directory structure is HUGE so I cannot use arrays to do it. I would end up running out of memory. I have to modify Ownership and permissions on every
Rob,
Take a look at File::Find.
I am trying to write a Perl script that will touch every subdirectory and
file. The problem is the directory structure is HUGE so I cannot use
arrays to do it. I would end up running out of memory. I have to modify
Ownership and permissions on every single
Lawrence, Rob wrote:
I am trying to write a Perl script that will touch every subdirectory
and file. The problem is the directory structure is HUGE so I cannot
use arrays to do it. I would end up running out of memory. I have to
modify Ownership and permissions on every single file, in
Title: Walking subdirectories and files
Rob,
I use
a recursive subroutine to do this (working example below). I modified and
trimmed it down a little for clarity.
Hope
this helps,
Larry
S.
sub
scan_dir{ my $dir =
shift; # The directory to start
scanning in my $entry=
''; # A
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, March 05, 2002 7:36 AM
Subject: Storable for 5xx series AS Perl
Has anyone tried to build the newer versions of Storable (1.x series) for
the older versions of AS perl? I have machines running a pretty
I am having a problem with a user trying to access a formmail.pl script on a
Linux server.
I have a cgi script that alerts me when a user tries to connect to a file
that doesn't exist (ie. broken links). For a few months now, a user has
been trying to access formmail.pl in my cgi-bin.
Thanks, this did the trick...although when I tried this before I got an
infinit loop...bahh just my programing :)...any how, the
while($text =~ m/blah/g) {
...
}
works.
Again, thank you
Joe Y.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Morse,
Sorry I sent the old version of the regular expression...the correct one is:
m/\s+((?:[\w\d\-\~]{2,}[@|\.](?:[\w\d\-\~]{2,}\.?\@?)+))/g
This one gets stuff like [EMAIL PROTECTED]
Thanks again.
PS..all you web folk out there...stick this under your pillow :) handy
little RegEx..once its
Resending because I never saw the message post. Sorry if duplicate.
Try this
#
my $text = this is a website: www.hello-world.com and an e-mail:
[EMAIL PROTECTED];
@found = $text =~ m/\s+((?:[\w\d\-\~]{2,}[@|\.](?:[\w\d\-\~]{2,}\.?)+))/g;
print
TimeShadow wrote:
I am having a problem with a user trying to access a formmail.pl script on a
Linux server.
I have a cgi script that alerts me when a user tries to connect to a file
that doesn't exist (ie. broken links). For a few months now, a user has
been trying to access
On Fri, 1 Mar 2002, James S. Martin wrote:
Thanks for all the help guys. I wasn't trying to sort them by date, I
was trying to eliminate files that had the same $name variables but keep
the ones with the newest date. I'm trying to eliminate the older files
from the array, not actually sort
Thank you,
You know the funny thing is, the person/persons don't even know the correct
way to send data to the formmail script.
here is the query string:
email=f2%40aol%2Ecomsubject=archive%2Esomedomain%2Ecom%2Fcgi%2Dbin%2Fformma
il%2Eplrecipient=loljose%40aol%2Ecommsg=w00t
or
sounds like hack attempts. probably proxy chaining/switching.
-Original Message-
From: TimeShadow [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 05, 2002 3:03 PM
To: [EMAIL PROTECTED]
Subject: No referrer
I am having a problem with a user trying to access a formmail.pl script on a
- Original Message -
From: Lawrence Lordanich (x11486) [EMAIL PROTECTED]
To: perl win32 users [EMAIL PROTECTED]
$om = $mb-cascade( -label = '~Options',
-menuitems = option_mitems,
);
'option_mitems' is a subroutine of arrays forming
TimeShadow [[EMAIL PROTECTED]] wrote:
[attempts to hijack formmail.pl]
The only thing in the string that changes is the recipient.
It is always by
a different remote host and remote address. Could it be
something that is
being sent from an email I can't figure out why the host
and
19 matches
Mail list logo