[24964] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 7214 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 6 09:07:21 2004

Date: Wed, 6 Oct 2004 06:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Wed, 6 Oct 2004     Volume: 10 Number: 7214

Today's topics:
        Asking for the question for DBI for MS SQL Server (mxu28@yahoo.com)
    Re: Asking for the question for DBI for MS SQL Server <noreply@gunnar.cc>
    Re: Error.pm and DBI.pm problem (Horst Walter)
    Re: Error.pm and DBI.pm problem (Anno Siegel)
    Re: Error.pm and DBI.pm problem <perl&nntp@rhesa.com>
    Re: finding the last element in a referenced array (.rhavin)
    Re: How big a part does hardware play in script executi <sholden@flexal.cs.usyd.edu.au>
    Re: How big a part does hardware play in script executi <none@none.com>
    Re: How big a part does hardware play in script executi <peter@semantico.com>
        How do I merge two arrays or two strings? <nntp@rogers.com>
    Re: How do I merge two arrays or two strings? <spamtrap@dot-app.org>
    Re: How do I merge two arrays or two strings? <tadmc@augustmail.com>
    Re: How do I merge two arrays or two strings? <abigail@abigail.nl>
    Re: How do I merge two arrays or two strings? <nntp@rogers.com>
    Re: How do I merge two arrays or two strings? <eam@7ka.mipt.ru>
    Re: How do I merge two arrays or two strings? <nntp@rogers.com>
    Re: How do I merge two arrays or two strings? (Anno Siegel)
    Re: Is PHP still slower than Perl? <tim@tt1lock.org>
    Re: Is PHP still slower than Perl? <tim@tt1lock.org>
    Re: Is PHP still slower than Perl? <tim@tt1lock.org>
    Re: Regular Expression help please <deja_nospam_@zaft.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: 6 Oct 2004 02:31:51 -0700
From: mxu28@yahoo.com (mxu28@yahoo.com)
Subject: Asking for the question for DBI for MS SQL Server
Message-Id: <fb297a83.0410060131.4d60de9c@posting.google.com>

Hi,
Is there any one know the parameters for the DBI connect for Ms SQL
Servwe 2000? or any samples?

Thanks!
Mark


------------------------------

Date: Wed, 06 Oct 2004 13:10:48 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Asking for the question for DBI for MS SQL Server
Message-Id: <2si292F1mhplmU1@uni-berlin.de>

mxu28@yahoo.com wrote:
> Is there any one know the parameters for the DBI connect for Ms SQL
> Servwe 2000? or any samples?

Check out "perldoc DBI".

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl


------------------------------

Date: 6 Oct 2004 00:32:59 -0700
From: unkwb@web.de (Horst Walter)
Subject: Re: Error.pm and DBI.pm problem
Message-Id: <53867fbe.0410052332.2d03d3bc@posting.google.com>

Thanks a lot for your hint.
However, if I change it to 

sub oracleLogoff ($) {
	my ($dbh) = @_;
	if (!defined $dbh) {
		return;
	}
	
	# avoid any trouble during close
	try {
		$dbh->disconnect;
	} catch Error with {
		# ignore the error
	};
}


I still get the error
Error: Can't call method "with" without a package or object reference
at autodb.pm line 181. ("catch Error with") line

Regards
HW





Rhesa Rozendaal <perl&nntp@rhesa.com> wrote in message news:<4162DB25.3050402@rhesa.com>...
> Horst Walter wrote:
> > As a newbie to Perl I run into the following problem. With this I get
> > the following problem with the code below:
> > 
> > Can't call method "with" without a package or object reference at
> > autodb.pm line 163
> > 
> > I have tried "use Error qw(:try);" and "use Error". I am confused
> > since this try/catch block works in other parts of my code pretty
> > fine. It seems to have something to do with DBI.
> 
> It has to do with the way you raise exceptions within the try block. You "die" with an error message, but "catch" is expecting an object of class Error.
> 
> > Any hints would be appreciated.
> > Thanks!
> > 
> > 
> > 	try {
> > 		my ($dbh) = @_;
> > 		unless ($dbh->disconnect) {
> 
> 
> > 			die("autodb::oracleLogoff $DBI::errstr");
> 
> change to
> 			Error->Throw("autodb::oracleLogoff $DBI::errstr");


------------------------------

Date: 6 Oct 2004 10:59:59 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Error.pm and DBI.pm problem
Message-Id: <ck0j7f$8bg$1@mamenchi.zrz.TU-Berlin.DE>

Horst Walter <unkwb@web.de> wrote in comp.lang.perl.misc:
> As a newbie to Perl I run into the following problem. With this I get
> the following problem with the code below:
> 
> Can't call method "with" without a package or object reference at
> autodb.pm line 163

[...]

Your code (still quoted below) is incomplete.  It looks like you didn't
import the with() function.

Anno

> 
> 	try {
> 		my ($dbh) = @_;
> 		unless ($dbh->disconnect) {
> 			die("autodb::oracleLogoff $DBI::errstr");
> 		};
> 	} 
> 	catch Error with {
> 		my $err = shift;
> 		print "autodb::oracleLogoff(..) $err";
> 	};




------------------------------

Date: Wed, 06 Oct 2004 14:18:01 +0200
From: Rhesa Rozendaal <perl&nntp@rhesa.com>
Subject: Re: Error.pm and DBI.pm problem
Message-Id: <4163e276$0$48933$e4fe514c@news.xs4all.nl>

Horst Walter wrote:
> Thanks a lot for your hint.
> However, if I change it to 
> 
> 	# avoid any trouble during close
> 	try {
> 		$dbh->disconnect;
> 	} catch Error with {
> 		# ignore the error
> 	};
> }

Again, that's because DBI raises the exception with die(). 
You could change the try block to a more generic one:

	try {
		$dbh->disconnect;
	} otherwise {
		# .. handle error
	};


------------------------------

Date: 6 Oct 2004 03:31:47 -0700
From: rhavin@shadowtec.de (.rhavin)
Subject: Re: finding the last element in a referenced array
Message-Id: <5d65e7ed.0410060231.4e6862bc@posting.google.com>

Rhesa Rozendaal <perl&nntp@rhesa.com> wrote in message news:<4162C656.8050301@rhesa.com>...

> $hash{'%1'}{'%2'}[-1]

*g* thanx a lot to all ... i really never thought of this simple
solution ... i think i once again outed myself as a c-styler, thinkin
the minus-first element is the element preceding the zeroth in a
reference to the middle of an array - i guess now that kind of
construction is impossible in perl?


------------------------------

Date: 6 Oct 2004 04:25:43 GMT
From: Sam Holden <sholden@flexal.cs.usyd.edu.au>
Subject: Re: How big a part does hardware play in script execution speed?
Message-Id: <slrncm6su7.kcr.sholden@flexal.cs.usyd.edu.au>

On Wed, 06 Oct 2004 02:23:43 +0100, gunzip <none@none.com> wrote:
> Consider 2 servers:
>
> 1. Running Perl CGI
> Dual Xeon 2.4Ghz
> 2Mb RAM
> Mobo X
> SCSI RAID
>
> 2. Running mod_php
> Dual P4 2.4Ghz
> Mobo X
> SCSI RAID
>
> Would the Perl CGI scripts run faster than the mod_php equivalents under
> similar heavy loads? Before you ask, I don't have a clue about benchmarking
> and these are hypothetical scenarios.

The perl scripts won't run at all since the web server won't leave
enough RAM available for perl to start up. Assuming the kernel manages
to start up and leave enough RAM for init to start up the web server.

-- 
Sam Holden


------------------------------

Date: Wed, 06 Oct 2004 12:30:10 +0100
From: gunzip <none@none.com>
Subject: Re: How big a part does hardware play in script execution speed?
Message-Id: <4163d742$0$54809$ed2619ec@ptn-nntp-reader01.plus.net>

Sam Holden wrote:
> On Wed, 06 Oct 2004 02:23:43 +0100, gunzip <none@none.com> wrote:
> 
>>Consider 2 servers:
>>
>>1. Running Perl CGI
>>Dual Xeon 2.4Ghz
>>2Mb RAM
>>Mobo X
>>SCSI RAID
>>
>>2. Running mod_php
>>Dual P4 2.4Ghz
>>Mobo X
>>SCSI RAID
>>
>>Would the Perl CGI scripts run faster than the mod_php equivalents under
>>similar heavy loads? Before you ask, I don't have a clue about benchmarking
>>and these are hypothetical scenarios.
> 
> 
> The perl scripts won't run at all since the web server won't leave
> enough RAM available for perl to start up. Assuming the kernel manages
> to start up and leave enough RAM for init to start up the web server.
> 
Sorry, complete slip of the keyboard. Should read 2Gb RAM for each machine.
I'm interested in an all-other-things-equal-except-the-CPU comparison.

gunzip


------------------------------

Date: Wed, 06 Oct 2004 12:59:40 +0100
From: Peter Hickman <peter@semantico.com>
Subject: Re: How big a part does hardware play in script execution speed?
Message-Id: <4163ddb1$0$16450$afc38c87@news.easynet.co.uk>

gunzip wrote:
> My point is whether the hardware is a bigger factor than the
> language/implementation features which generate so many flame wars. In other
> words, is Perl CGI on today's hardware faster than mod_php on last year's?

The truth is that unless you are running some extremely bad code (in PHP or 
Perl) there is not really much in it. There are only so many ways you can to 
something efficiently and Perl and PHP are practical languages and tend to do 
things the same way and so would expect to have the same performance.

Hardware does affect the performance of the application but both languages will 
be affected in the same way.


------------------------------

Date: Wed, 6 Oct 2004 00:09:17 -0400
From: "nntp" <nntp@rogers.com>
Subject: How do I merge two arrays or two strings?
Message-Id: <_NGdnfqtFuuV7f7cRVn-rg@rogers.com>

Let's say I have two arrays, one has N elements and the other has M. Both N
and M vary. I want to merge the two like you shuffle two decks of cards.
from
1 2 3 4 5 6 7 8
a b c d e f g h
to
12a34bc5def78gh

Both still need to be in the original order.

The second part of the question is when they are not arrays but two long
strings, I need to randomly select the N break points (break point must be a
whitespace) of string A. How do I do this?




------------------------------

Date: Wed, 06 Oct 2004 00:24:16 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <n8KdnRbhPNvs7v7cRVn-rg@adelphia.com>

nntp wrote:

> Let's say I have two arrays, one has N elements and the other has M. Both N
> and M vary. I want to merge the two like you shuffle two decks of cards.
> from
> 1 2 3 4 5 6 7 8
> a b c d e f g h
> to
> 12a34bc5def78gh

This smells a *lot* like homework, so I'm going to restrict this to 
hints - you'll need to write the code yourself.

Have a look at the push() and shift() functions. Push() adds an element 
to the end of an array, and shift() removes and returns the first 
element from an array.

So, create a while() loop that repeats for as long as either M or N has 
anything in it. Each time through the loop, choose an array at random, 
shift() the first element from it, and push() that element onto the 
target array.

> Both still need to be in the original order.

In order??? Remind me not to play cards with you... :-)

> The second part of the question is when they are not arrays but two long
> strings, I need to randomly select the N break points (break point must be a
> whitespace) of string A. How do I do this?

What do you mean by "select"?

sherm--

-- 
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org


------------------------------

Date: Tue, 5 Oct 2004 23:49:26 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <slrncm6uam.53k.tadmc@magna.augustmail.com>

nntp <nntp@rogers.com> wrote:
> Let's say I have two arrays, one has N elements and the other has M. Both N
> and M vary. I want to merge the two like you shuffle two decks of cards.
> from
> 1 2 3 4 5 6 7 8
> a b c d e f g h
> to
> 12a34bc5def78gh
> 
> Both still need to be in the original order.


Errr, yes, but did you mean to ask a question?

What do you want?

An algorithm?

Code?

What have you tried so far?

etc...



This should get you started:

--------------------------
#!/usr/bin/perl
use warnings;
use strict;

my @n = qw/1 2 3 4 5 6 7 /;
my @m = qw/a b c d e f g h/;

my @shuffled;
while ( @n + @m ) {
   foreach my $i ( 1 .. int(1 + rand 3)) {
      push @shuffled, shift @n if @n;
   }
   foreach my $i ( 1 .. int(1 + rand 3)) {
      push @shuffled, shift @m if @m;
   }
}

print $_ for @shuffled;
print "\n";
--------------------------


> The second part of the question is when they are not arrays but two long
> strings, I need to randomly select the N break points (break point must be a
> whitespace) of string A. How do I do this?

1) make an array of the character positions
   ( push @bp, pos()-1 while /\s/g; )

2) make a random selection from that array


-- 
    Tad McClellan                          SGML consulting
    tadmc@augustmail.com                   Perl programming
    Fort Worth, Texas


------------------------------

Date: 06 Oct 2004 07:44:34 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <slrncm78j2.34g.abigail@alexandra.abigail.nl>

nntp (nntp@rogers.com) wrote on MMMMLIV September MCMXCIII in
<URL:news:_NGdnfqtFuuV7f7cRVn-rg@rogers.com>:
==  Let's say I have two arrays, one has N elements and the other has M. Both N
==  and M vary. I want to merge the two like you shuffle two decks of cards.
==  from
==  1 2 3 4 5 6 7 8
==  a b c d e f g h
==  to
==  12a34bc5def78gh
==  
==  Both still need to be in the original order.

my @a = qw /1 2 3 4 5 6 7 8/;
my @b = qw /a b c d e f g h/;

my @c = map {shift @{@a && rand @a < @b && rand @b ? \@b : \@a}} 1 .. @a + @b;

==  The second part of the question is when they are not arrays but two long
==  strings, I need to randomly select the N break points (break point must be a
==  whitespace) of string A. How do I do this?

I've no idea what you mean by this question.


Abigail
-- 
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
                                      print } sub __PACKAGE__ { &
                                      print (     __PACKAGE__)} &
                                                  __PACKAGE__
                                            (                )


------------------------------

Date: Wed, 6 Oct 2004 04:33:56 -0400
From: "nntp" <nntp@rogers.com>
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <E-adnbvOdeGMM_7cRVn-rQ@rogers.com>

> nntp <nntp@rogers.com> wrote:
> > Let's say I have two arrays, one has N elements and the other has M.
Both N
> > and M vary. I want to merge the two like you shuffle two decks of cards.
> > from
> > 1 2 3 4 5 6 7 8
> > a b c d e f g h
> > to
> > 12a34bc5def78gh
> >
> > Both still need to be in the original order.
>
>
> Errr, yes, but did you mean to ask a question?
>
> What do you want?
>
> An algorithm?
>
> Code?
>
> What have you tried so far?
>
> etc...
>
>
>
> This should get you started:
>
> --------------------------
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my @n = qw/1 2 3 4 5 6 7 /;
> my @m = qw/a b c d e f g h/;
>
> my @shuffled;
> while ( @n + @m ) {
>    foreach my $i ( 1 .. int(1 + rand 3)) {
>       push @shuffled, shift @n if @n;
>    }
could you tell me why 1 is always the start in @shuffled, which means, it is
not random.
also, could you explain what ( 1 .. int(1 + rand 3)) does? you call $i which
does not exist.
you tried to pick zero or one, but why rand 3?, will I get 1+3=4?

>    foreach my $i ( 1 .. int(1 + rand 3)) {
>       push @shuffled, shift @m if @m;
>    }
> }
>
> print $_ for @shuffled;
> print "\n";
> --------------------------
>
>
> > The second part of the question is when they are not arrays but two long
> > strings, I need to randomly select the N break points (break point must
be a
> > whitespace) of string A. How do I do this?
>
> 1) make an array of the character positions
>    ( push @bp, pos()-1 while /\s/g; )
I did this
$_='what the         heck does this do?';
( push @bp, pos()-1 while /\s/g; )
print "@bp\n";
it gave me errors;
Global symbol "@bp" requires explicit package name at testmerge.pl line 23.
syntax error at testmerge.pl line 23, near "1 while"
Execution of testmerge.pl aborted due to compilation errors.




------------------------------

Date: Wed, 6 Oct 2004 11:38:28 +0300
From: "Eugene Mikheyev" <eam@7ka.mipt.ru>
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <ck0aov$13t0$1@news.univ.kiev.ua>

> The second part of the question is when they are not arrays but two long
> strings, I need to randomly select the N break points (break point must be
a
> whitespace) of string A. How do I do this?
my @a = split /\s/, $a;
my @b = split /\s/, $b;

And you've your first tas again




------------------------------

Date: Wed, 6 Oct 2004 05:02:53 -0400
From: "nntp" <nntp@rogers.com>
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <U7-dnZ5jTPBHKf7cRVn-jA@rogers.com>


> my @a = qw /1 2 3 4 5 6 7 8/;
> my @b = qw /a b c d e f g h/;
>
> my @c = map {shift @{@a && rand @a < @b && rand @b ? \@b : \@a}} 1 .. @a +
@b;

I think your code has some problems - as the last letter is always h, so it
is not 100% random, the same problme as the other code. Do you think RAND
has problems? I am usingn perl 5.6, so there is not srand problme in 5.6;


>
> ==  The second part of the question is when they are not arrays but two
long
> ==  strings, I need to randomly select the N break points (break point
must be a
> ==  whitespace) of string A. How do I do this?
>
> I've no idea what you mean by this question.
>
>
> Abigail
> -- 
> package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
>                                       print } sub __PACKAGE__ { &
>                                       print (     __PACKAGE__)} &
>                                                   __PACKAGE__
>                                             (                )




------------------------------

Date: 6 Oct 2004 09:46:23 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How do I merge two arrays or two strings?
Message-Id: <ck0etf$5k4$1@mamenchi.zrz.TU-Berlin.DE>

nntp <nntp@rogers.com> wrote in comp.lang.perl.misc:

[in reply to Abigil, attribution missing]

> > my @a = qw /1 2 3 4 5 6 7 8/;
> > my @b = qw /a b c d e f g h/;
> >
> > my @c = map {shift @{@a && rand @a < @b && rand @b ? \@b : \@a}} 1 .. @a +
> @b;
> 
> I think your code has some problems

Yes, precedence.  "@a && rand @a < @b && rand @b" is parsed as
"(@a && rand @a < @b) && rand @b".  It should be "(@a && rand @a) <
(@b && rand @b)".

>                                      - as the last letter is always h, so it

I never see "h" as the last choice.

> is not 100% random, the same problme as the other code. Do you think RAND
> has problems? I am usingn perl 5.6, so there is not srand problme in 5.6;

It isn't entirely clear what an "unbiased merge" would be under these
constraints.  Abigail chooses an element from one of the lists according
to their relative (remaining) length, so the longer list gets better
chances.  That looks pretty plausible, but the statistical properties
of the resulting merge would have to be investigated.

Anno


------------------------------

Date: Wed, 6 Oct 2004 12:07:41 GMT
From: Tim Tyler <tim@tt1lock.org> 
Subject: Re: Is PHP still slower than Perl?
Message-Id: <I55wCt.1o5@bath.ac.uk>

In comp.lang.php Simon Stienen <simon.stienen@news.slashlife.de> wrote or quoted:
> Tim Tyler <tim@tt1lock.org> wrote:
> > In comp.lang.php @ <asdf@asdfsadf.com> wrote or quoted:

> >> C. I don't know why it is not popular. It should be. [...]
> > 
> > Safety.  Security.  Imports as includes.  Header files.
> > Lack of binary portability.  The preprocessor. The fact that C++ sucks.
> 
> Please explain the difference between safety and security.

http://dictionary.reference.com/search?q=safety
http://dictionary.reference.com/search?q=security

> *What* is bad about header files and the preprocessor?

They require unnecessary maintenance - and produce unreadable, 
unmaintainable, unparsable, incomprehensible programs respectively.

> WTF has C++ to do with C?

C++ is what C programmers tend to use when they find they
actually needed OO features after all - and that
consequently they started their project in the wrong language.

They shift to C++ because it is backwards-compatible with C.

> Why do you expect binary portability from C, while there is binary
> portability for neither PHP, nor Perl, nor Java. (You won't get a binary
> for the first two and Java wants to be portable but isn't as it proofed
> with the 6809-emulator we wrote in school last year.)

Java won't run on my mechano set - therefore it isn't portable.

A good argument you have there.

> By now, your whole post shouts:
> "I don't have a clue about C, so it *has* to be bad."

That just shows you failed to understand what I wrote :-|
-- 
__________
 |im |yler  http://timtyler.org/  tim@tt1lock.org  Remove lock to reply.


------------------------------

Date: Wed, 6 Oct 2004 12:17:03 GMT
From: Tim Tyler <tim@tt1lock.org> 
Subject: Re: Is PHP still slower than Perl?
Message-Id: <I55wsF.20H@bath.ac.uk>

In comp.lang.php Tony Marston <tony@nospam.demon.co.uk> wrote or quoted:
> "Tim Tyler" <tim@tt1lock.org> wrote in message news:I50oKB.rM@bath.ac.uk...
> > In comp.lang.php John Bokma <postmaster@castleamber.com> wrote or quoted:

> >> For me Perl is #1 (if possible) because PHP is probably the worst 
> >> designed language ever.
> >
> > PHP was never designed.  It evolved.
> 
> Most languages evolve for the simple reason that nobody ever gets it right 
> the very first time. Ideas change over time, so languages must change to 
> keep up with the times.

Much as I respect evolutionary approaches to design - if you were
planning on building a rocket ship in 1995 - it would have been
best not to have started with a steam engine - and to have attempted
a series of gradual changes once the thing was going along.
-- 
__________
 |im |yler  http://timtyler.org/  tim@tt1lock.org  Remove lock to reply.


------------------------------

Date: Wed, 6 Oct 2004 12:20:14 GMT
From: Tim Tyler <tim@tt1lock.org> 
Subject: Re: Is PHP still slower than Perl?
Message-Id: <I55wxq.252@bath.ac.uk>

In comp.lang.php John Bokma <postmaster@castleamber.com> wrote or quoted:
> "Tony Marston" <tony@NOSPAM.demon.co.uk> wrote in news:cjofs2$sa9$1

> > http://dev.mysql.com/tech-resources/articles/4.1/prepared-statements.html
> 
> "Another API that has prepared statement support is PHP. PHP 5 has a new  
>  MySQL interface called "mysqli"."
> 
> More cluttering of the namespace :-( Why wasn't this in the language years 
> (!) ago?

To avoid cluttering the namespace? ;-)

Why have an interface to a particular database in the standard library
anyway?

Are they trying to *encourage* the use of database-specific features?
-- 
__________
 |im |yler  http://timtyler.org/  tim@tt1lock.org  Remove lock to reply.


------------------------------

Date: Wed, 6 Oct 2004 01:53:53 -0700
From: "ZafT" <deja_nospam_@zaft.com>
Subject: Re: Regular Expression help please
Message-Id: <8Y2dnYDQa7oDL_7cRVn-pQ@comcast.com>


> So, apparently, you did not really need an answer. I did point out that
you
> should try comp.editors but I don't see a post from you.
>

# I tried to post this via dbforums hours ago, but it is not showing up.
Anyway...

Actually, I really did need the help, but google takes a while to update
postings and I didn't see your message until I had already recieved an email
back from a friend. In fact, google has not even posted the message I am
replying to yet - I had to sign up for dbforums today to reply to you right
now). Did I mention that I have no NNTP access here either? heh. In case you
are really interested, or don't believe that I actually did find what I was
looking for, here is what you need to do it in Textpad and UltraEdit.

Textpad

Search for:
\(foo\?[0-9]+\)\(["]*\)

Replace with:
\1.txt"


UltraEdit

Search for:
^(foo?*^)"

Replace with:
^1.txt"

I hope you believe that I was not posting just to waste your time - your
help is truly appeciated, and I made a sincere effort in an earlier posting
to thank you for answering my request with a tactful point in the right
direction. Just because I did not post after I finally saw your reply does
not mean I did not need the help when I asked for it. I just happened to
actually get the help before I got your post. However, the group will be
thankful that you have told me the correct place to post these types of
questions.

I hope that this convinces you that I did not intend to waste anyone's time.
Is there some sort of re-initiation I have to go through to get off
everyone's ignore list, or do I have to assume a new identity?


Shane





------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc.  For subscription or unsubscription requests, send
#the single line:
#
#	subscribe perl-users
#or:
#	unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V10 Issue 7214
***************************************


home help back first fref pref prev next nref lref last post