need help

2004-01-18 Thread Rosemary Michelle Simpson
with removing myself from this list. I am no longer using Perl and need to reduce my email volume. However, the addresses for removal and for help request don't seem to be working since I am still getting email. Please advise, Thanks Rosemary

Re: Need help with a string parsing problem

2004-01-18 Thread Andy Turner
On Sat, Jan 17, 2004 at 10:19:24PM -0800, Kim Helliwell wrote: I need to take a string like this: UA-UI1,3,4,6 and expand it into an array of components like this: UA1 UA3 UA4 UA6 UB1 UB3 UB4 UB6 ... UI1 UI3 UI4 UI6 How's this? my $str = UA-UI1,3,4,6; if ( my( $from, $to, $nums ) = (

Re: Need help with a string parsing problem

2004-01-18 Thread John Delacour
At 10:19 pm -0800 17/1/04, Kim Helliwell wrote: I need to take a string like this: UA-UI1,3,4,6 and expand it into an array of components like this: UA1 UA3 UA4 UA6 UB1 UB3 UB4 UB6 ... UI1 UI3 UI4 UI6 How about this: $_ = UA-UI1,3,4,6; m~(..)\-(..)(\d.+)~; for $CC( $1 .. $2 ) { for $n ( split

Re: Need help with a string parsing problem

2004-01-18 Thread Andy Turner
There some sort of regexp strangeness going on here that I can't grok. Your script doesn't work for me unless I print out the values of $1 AND $2. If I just print out one it doesn't work either. turner:~$ cat foo.pl $_ = UA-UI1,3,4,6; m~(..)\-(..)(\d.+)~; for $CC( $1 .. $2 ) { for $n ( split

/tmp v. /tmp/501/TemporaryItems

2004-01-18 Thread John Delacour
Can someone please tell me if there's any reason not to write files in /private/tmp rather than in /tmp/501/TemporaryItems ? drwxrwxrwt 29 root wheel 986 18 Jan 21:49 tmp drwxr-xr-x 13 jdwheel 442 18 Jan 21:30 TemporaryItems So far as jd and admin there's never been a problem, but

Re: need help

2004-01-18 Thread Rosemary Michelle Simpson
I did, on five separate occasions, to no avail. A plea for help to the help address resulted in an auto reply and nothing further and no results. Thanks, R On Sun, 18 Jan 2004, Phil Dobbin wrote: On 18/01/2004 14:42, Rosemary Michelle Simpson [EMAIL PROTECTED] wrote: with removing myself

Re: need help

2004-01-18 Thread Chris Devers
One possible explanation is that you sent the messages from an address other than the one you're subscribed from. For example, I use a pobox.com address, but pobox.com is just a forwarding service -- I actually read and reply to my mail from a different account, and have to set up my mail

Re: Need help with a string parsing problem

2004-01-18 Thread John Delacour
At 3:38 pm -0500 18/1/04, Andy Turner wrote: There some sort of regexp strangeness going on here that I can't grok. Your script doesn't work for me unless I print out the values of $1 AND $2. If I just print out one it doesn't work either. I can't say. I've tried it in BBEdit, in another Perl

Re: need help

2004-01-18 Thread Rosemary Michelle Simpson
In fact, I got an auto confirm reply to two of them and no reply to the others, except the auto-reply from help. I'll forward that to you. Thanks for your help! R On Sun, 18 Jan 2004, Chris Devers wrote: One possible explanation is that you sent the messages from an address other than the

Re: Need help with a string parsing problem

2004-01-18 Thread John Delacour
At 11:03 pm + 18/1/04, John Delacour wrote: Hey, wait a minute -- maybe I was :-) I get your problem if I run it in MacPerl with 5.6.1... It works in 5.6.1 if I quote the matches : $_ = UA-UI1,3,4,6; / (\w\w)-(\w\w)(\d.+) /x; for ($1..$2 ) {for $n ( split /[^\d*]/, $3 ) { print $_$n

Re: need help

2004-01-18 Thread John Delacour
At 6:11 pm -0500 18/1/04, Rosemary Michelle Simpson wrote: In fact, I got an auto confirm reply to two of them and no reply to the others, except the auto-reply from help. Check at the very top of your mail headers in a list message to see what address you subscribed from, eg: Return-Path:

Re: xterm color support

2004-01-18 Thread Paul McCann
Hi Gohaku, you wrote... I have a question about the following script: use Term::ANSIColor; print color(red on_white), Danger, Will Robinson!\n; print color(red on_white), Danger, Will Robinson!\n; print color(red on_white), Danger, Will Robinson!\n; print color(reset); Has

Re: /tmp v. /tmp/501/TemporaryItems

2004-01-18 Thread Paul McCann
Hi John, you wrote... Can someone please tell me if there's any reason not to write files in /private/tmp rather than in /tmp/501/TemporaryItems ? drwxrwxrwt 29 root wheel 986 18 Jan 21:49 tmp drwxr-xr-x 13 jdwheel 442 18 Jan 21:30 TemporaryItems So far as jd and

Re: ***regular expression***

2004-01-18 Thread Rick Anderson
On Friday, November 14, 2003, at 07:25 AM, xweb wrote: Can someone help me about a regular ? In which way i can substitute a href=$urlstring/a with idlink$val1. I'm not sure I understand exactly what you're asking. Do you mean you want to take the value of $url and place it where $val1 occurs

OT: Virus warning

2004-01-18 Thread Sherm Pendley
Off-topic, I know, and I apologize for that in advance. Today I received two emails, both with forged headers. One appeared to come from Pudge (Chris Nandor), and the other from Mattias Neeracher. Both included virus attachments. Someone is apparently targeting a virus towards MacPerl

Re: OT: Virus warning

2004-01-18 Thread Chris Nandor
In article [EMAIL PROTECTED], [EMAIL PROTECTED] (Sherm Pendley) wrote: Off-topic, I know, and I apologize for that in advance. Today I received two emails, both with forged headers. One appeared to come from Pudge (Chris Nandor), and the other from Mattias Neeracher. Both included virus

Re: /tmp v. /tmp/501/TemporaryItems

2004-01-18 Thread Chris Nandor
In article [EMAIL PROTECTED], [EMAIL PROTECTED] (John Delacour) wrote: Can someone please tell me if there's any reason not to write files in /private/tmp rather than in /tmp/501/TemporaryItems ? drwxrwxrwt 29 root wheel 986 18 Jan 21:49 tmp drwxr-xr-x 13 jdwheel 442 18 Jan

Re: reading resource fork of Freehand (8) files

2004-01-18 Thread Chris Nandor
In article [EMAIL PROTECTED], [EMAIL PROTECTED] (Joergen W. Lang) wrote: my $text = GetResource( 'TEXT', '256'); print Dumper $text; This gives me: $VAR1 = \bless( do{\(my $o = 65688)}, 'Handle' ); so I obviously have a handle to the resource. But how to get the actual

Re: OT: Virus warning

2004-01-18 Thread Brian McNett
On Sunday, January 18, 2004, at 09:58 PM, Chris Nandor wrote: I don't know who is being targetted, but I got a ton from Matthias and Jarkko (about 50 between the two addresses). My boss got a copy which had a forged from of [EMAIL PROTECTED]. They look like junk faxers, which is neither here

Re: OT: Virus warning

2004-01-18 Thread Brian McNett
On Sunday, January 18, 2004, at 10:34 PM, Brian McNett wrote: The rest of this is phenomenally boring, unless you do it for pay, so at this point I return you to your regularly scheduled Mac OS X Perl discussion. Oh... Symantec is calling it [EMAIL PROTECTED]. Just discovered today.