Re: regex for l33t speak

Thomas Bätzler wrote: Andrew Gaffney <[EMAIL PROTECTED]> wrote: Too literally. Basically, I'm trying to match a word that contains a mix of >=2 numbers (possibly next to each other) and letters. My current regex is: \b\d*[a-zA-Z]*(\d+[a-zA-Z]+)+\d*[a-zA-Z]*[^:,]\b but that seems to catch too muc

RE: regex for l33t speak

Andrew Gaffney <[EMAIL PROTECTED]> wrote: > Too literally. Basically, I'm trying to match a word that > contains a mix of >=2 numbers (possibly next to each other) > and letters. My current regex is: > > \b\d*[a-zA-Z]*(\d+[a-zA-Z]+)+\d*[a-zA-Z]*[^:,]\b > > but that seems to catch too much. Eve

Re: Regex against a scalar

On Wed, 23 Mar 2005 17:41:31 -0800, Perl wrote: > Hi. > > I would like to search a scalar variable and have the output to another > scalar. For example: > > $test = "This is some test data"; > > I want another scalar, $regex to hold the output of a regular expression > lookup against $test. > >

Re: Need help creating filename with date

Steven Golamco wrote: I have the following script (002.pl) that is generating error messages. Can anyone please give me help? #! D:\perl\bin use strict; use warnings; @now = localtime time; $filename = "Report-" . ($now[4] + 1) . "-" . $now[3]. "-" . $now[5] . "-" . $now[2] . "-" . $now[1] . "-" .

RE: Need help creating filename with date

Steven Golamco wrote: : I have the following script (002.pl) that is generating error : messages. Can anyone please give me help? You need to learn about 'my'. You can read about it in the perlfunc file. There are additional resources linked from there. Better

Re: Is file finished writing?

David Jacopille wrote: I'm looking for some strategies to determine when other applications are finished writing a file. I've got a script printing page layout files to postscript in rapid fashion. I'd like to move the postscript to another location for some additional modifications as fast a

Is file finished writing?

I'm looking for some strategies to determine when other applications are finished writing a file. I've got a script printing page layout files to postscript in rapid fashion. I'd like to move the postscript to another location for some additional modifications as fast as possible. I can't fi

Re: regex for l33t speak

On Wed, 23 Mar 2005, Andrew Gaffney wrote: > I'm trying to come up with a regex for my IRC bot that detects 1337 > (in order to kick them from the channel). For those unfamiliar with 'leet, see here:

Need help creating filename with date

I have the following script (002.pl) that is generating error messages. Can anyone please give me help? Thanks, Steve #! D:\perl\bin use strict; use warnings; @now = localtime time; $filename = "Report-" . ($now[4] + 1) . "-" . $now[3]. "-" . $now[5] . "-" . $now[2] . "-" . $now[1] . "-" . $now

Re: regex for l33t speak

Tim Johnson wrote: First off, "perldoc perlre" is a good place to start. What do you have so far? Does something like /\b1337\b/ work? Or am I taking you too literally? Too literally. Basically, I'm trying to match a word that contains a mix of >=2 numbers (possibly next to each other) and letter

RE: regex for l33t speak

First off, "perldoc perlre" is a good place to start. What do you have so far? Does something like /\b1337\b/ work? Or am I taking you too literally? -Original Message- From: Andrew Gaffney [mailto:[EMAIL PROTECTED] Sent: Wednesday, March 23, 2005 5:52 PM To: beginners@perl.org Subjec

regex for l33t speak

I'm trying to come up with a regex for my IRC bot that detects 1337 (in order to kick them from the channel). I can't seem to come up with one that will have few false positives but also work most of the time. Has anyone done something like this before? Does anyone have any suggestions? -- Andr

Regex against a scalar

Hi. I would like to search a scalar variable and have the output to another scalar. For example: $test = "This is some test data"; I want another scalar, $regex to hold the output of a regular expression lookup against $test. So something like this: $regex =~ /test/ running against $test. Is

Re: printing a filehandle to another file.

Perl'ers nevermind... I had a brain fart. I got it using a foreach loop on the file. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams Derek

Re: perlembed : makefiles on win32

FYI it's probably not the makefiles causing the problem if you can compile. PERL_SYS_INIT3(&argc,&argv,&env); at the start of main solved my problem, at least for now. See miniperlmain.c for example. (add int PL_use_safe_putenv =1; int PL_do_undump = 0; if needed) --t - Original M

printing a filehandle to another file.

Here is my code: use strict; use warnings; my $tpexports = qq(/usr/local/bin/ohiohealth/derek); my $archivedexports = qq(/usr/local/log/9940exports.archived); open (_, "+>$tpexports") || die "could not open file: $tpexports $!"; open (FOO, ">>$archivedexports"

Re: SFTP problems...

- Original Message - From: "Ing. Branislav Gerzo" <[EMAIL PROTECTED]> Date: Wednesday, March 23, 2005 11:10 am Subject: Re: SFTP problems... > zentara [z], on Wednesday, March 23, 2005 at 10:10 (-0500) thinks > about: > > z> Yeah, it looks like the server is version 1 of ssh, while you

Re: YA Regex problem: lookahead assertion

Jan Eden wrote: Hi, Hello, I use the following regex to split a (really simple) file into sections headed by .+?: while ($content =~ m#(.+?)(.+?)(?=)#gs) { ... } This works perfectly, but obviously does not catch the last section, as it is not followed by . How can I catch the last section wi

Re: perl+php and remote commands

Mariano Cunietti wrote: Hi, I want to develop a PHP+Perl interface to manage a DNS and a few Mail servers. I need to interact with other machines on the same network. Which is the best way to execute commands invoked from the web interface, pass them to perl and then let them be executed on local

RE: YA Regex problem: lookahead assertion

Jan Eden wrote: : Hi, : : I use the following regex to split a (really simple) file into : sections headed by .+?: : : while ($content =~ m#(.+?)(.+?)(?=)#gs) { : ... : } The answer may be in your description. Use 'split'. When you use a capture inside the reg

Re: YA Regex problem: lookahead assertion

On Wed, 23 Mar 2005 17:06:59 +0100, Jan Eden wrote: > Hi, > > I use the following regex to split a (really simple) file into sections > headed by .+?: > > while ($content =~ m#(.+?)(.+?)(?=)#gs) { > ... > } > > This works perfectly, but obviously does not catch the last section, as it is >

Re: SFTP problems...

zentara [z], on Wednesday, March 23, 2005 at 10:10 (-0500) thinks about: z> Yeah, it looks like the server is version 1 of ssh, while you are z> running ssh2 on your client. now everything works under win32. The SFTP under win is tricky thing, but it seems, it works good. problem was original Ne

YA Regex problem: lookahead assertion

Hi, I use the following regex to split a (really simple) file into sections headed by .+?: while ($content =~ m#(.+?)(.+?)(?=)#gs) { ... } This works perfectly, but obviously does not catch the last section, as it is not followed by . How can I catch the last section without * doing a se

Re: perl+php and remote commands

On Wed, 2005-03-23 at 16:48 +0100, Mariano Cunietti wrote: ...snip... > Should I put public keys in /root/.ssh/authorized_keys on all machines > and then exec a "ssh [EMAIL PROTECTED] ."? No. That is basically the same a putting the password in a file on disk. > Isn't there a more *elegant

perl+php and remote commands

Hi, I want to develop a PHP+Perl interface to manage a DNS and a few Mail servers. I need to interact with other machines on the same network. Which is the best way to execute commands invoked from the web interface, pass them to perl and then let them be executed on local and remote machines? How

Re: use strict/warnings

I typically do: #!/usr/bin/perl #pragmas use strict; use warnings; #modules use Tk; And so on...I just think it organizes better. Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: use strict/warnings

On Wed, 23 Mar 2005, Roberts Mr Richard L wrote: > My superior and I are debating where 'use strict/warnings' should be > placed: prior to any use module statement or after? Anyone? It doesn't really matter a whole lot if the modules are well behaved. But then, that's not necessarily a good ass

Re: use strict/warnings

Roberts Mr Richard L wrote: My superior and I are debating where 'use strict/warnings' should be placed: prior to any use module statement or after? Anyone? Please start a new thread, snip old messages that are not related. Generally it doesn't matter since they are both file scoped, meaning they

use strict/warnings

My superior and I are debating where 'use strict/warnings' should be placed: prior to any use module statement or after? Anyone? -Original Message- From: Atul Vohra [mailto:[EMAIL PROTECTED] Sent: Wednesday, March 23, 2005 1:44 PM To: Felix Geerinckx; beginners@perl.org Subject: Re: Web Se

Re: Web Service Client

Thanks - Original Message - From: "Felix Geerinckx" <[EMAIL PROTECTED]> To: beginners@perl.org Subject: Re: Web Service Client Date: 22 Mar 2005 17:41:59 - > > On 22/03/2005, Atul Vohra wrote: > > [Top-posting fixed] > > > > > Does anybody have a Web Service client in perl (SOAP stu

Re: XML Generator DBI

-w is kind of pan-galactic and influences modules you're calling, regardless of their own 'warnings' settings. Try 'use warnings' without -w. See p861 in the camel 3rd edition. HTH, GStC. That's exactly what I needed to hear. Thank you Graeme! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Web Service Client

On 22/03/2005, Atul Vohra wrote: [Top-posting fixed] > > > Does anybody have a Web Service client in perl (SOAP stuff) to > > > consume a Web Service. > > > I have created Web Services using Remedy (ARS) and now need to > > > write a cleint for the external customer. [...] > I was hoping somebo