stop

[David Kapp]

I've requested 50 times to be taken off your mailing list, but you still send me this unwanted mail.
I will now report all mail sent to me by you as SPAM
Stop sending me spam.


















2003 www.hushport.com

stop!

[maddest_hatter]

unsubscribe


GET INTERNET ACCESS FROM JUNO!
Juno offers FREE or PREMIUM Internet access for less!
Join Juno today!  For your FREE software, visit:
http://dl.www.juno.com/get/tagj.

stop

[Jonathan Macpherson]

unsubscribe

stop

[vijaylkumar veeragandham]

unsubscribe

__
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/

RE: stop

[Dan Muey]

> I've requested 50 times to be taken off your mailing list, 
> but you still send me this unwanted mail.

You've sent 50 emails to [EMAIL PROTECTED]

I get no spam from this list ever, maybe it's coming 
from someone who harvested your email address from a web site or something?

> I will now report all mail sent to me by you as SPAM

What are the headers and ip addresses, I doubt it's coming from the 
real beginners list or else I'd have gotton spam also since I've 
subscribed for a while now.

> Stop sending me spam.

I never have and the list hasn't either. It's got to be a harvesting 
bot, virus, etc... Maybe your IncrediMail or Kazaa or somethgin has spyware in it?

HTH

DMuey

> 2003 www.hushport.com

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: stop

[Dan Muey]

> > I've requested 50 times to be taken off your mailing list,
> > but you still send me this unwanted mail.
> 
> You've sent 50 emails to [EMAIL PROTECTED]
> 
What a fun thread, I wanted to go off in my usual flare but didn't :(
Maybe next time :)

> I get no spam from this list ever, maybe it's coming 
> from someone who harvested your email address from a web site 
> or something?
> 
> > I will now report all mail sent to me by you as 
> > SPAM
> 
> What are the headers and ip addresses, I doubt it's coming from the 
> real beginners list or else I'd have gotton spam also since I've 
> subscribed for a while now.
> 
> > Stop sending me spam.
> 
> I never have and the list hasn't either. It's got to be a harvesting 
> bot, virus, etc... Maybe your IncrediMail or Kazaa or 
> somethgin has spyware in it?
> 
> HTH
> 
> DMuey
> 
> > 2003 www.hushport.com
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED] 
<http://learn.perl.org/> <http://learn.perl.org/first-response>



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: stop

[jeff]

you could always change your email 
address!  Just a thought.

  - Original Message - 
  From: 
  David Kapp 
  
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, January 07, 2004 
  14:31
  Subject: stop
  
  

  

  
  

  


  

  I've requested 50 times to be taken off your mailing list, 
  but you still send me this unwanted mail.
  I will now report all mail sent to me by you as 
  SPAM
  Stop sending me spam.

  

  
  

  


  
  
  
  

  


  
2003 www.hushport.com
<<2004.jpg>><>

Re: stop

[Dan Anderson]

Uhhh...at the bottom of every list message is:

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 



-Dan


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: stop

[u235sentinel]

After being part of this list for a month, I don't recall seeing more than just this 
email requesting removal from the list.  

Oh well.  An amusing message.  I see them all the time in the Linux mail lists I 
participate in. Pity people can't follow directions :-)

> Uhhh...at the bottom of every list message is:
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>  
> 
> 
> 
> -Dan
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>  
> 
> 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: stop

[Morbus Iff]

For the sake of:

 * giving the guy a break.
 * expecting some intellect.
 * realizing he's probably
   not reading your responses.
Notice he didn't say whether he requested to the list, or to the
proper email unsubscribe address: just that he had requested multiple
times to be removed. The flip side of the coin is that there may
very well be a problem with the unsubscription scripts.
Yes, this is a far-flung possibility, but besides courtesy in
the face of idiocy, one of the things ANY beginner to ANY thing
should know is to think things through from ALL angles: just
because the answer seems obvious, doesn't mean it is.


--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering Hacks: http://amazon.com/exec/obidos/ASIN/0596005776/disobeycom
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: stop

[Charles K. Clarkson]

[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
: 
: Oh well.  An amusing message.  I see them all the time in
: the Linux mail lists I participate in. Pity people can't
: follow directions :-)

Be careful what you wish for.

If everyone could follow directions we would be one
step closer to everyone being able to *write* directions.
Then I would have to become one of those really exceptional
programmers instead of just the average one I am today. :)


Charles K. Clarkson
-- 
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: stop

[Dan Muey]

Please tell me this thread will stay in the archives! It's hilarious!

I feel kinda bad for Mr. Kapp though, but if you're rude for no good 
reason what can you expect.

> - Original Message - 
> From: [EMAIL PROTECTED] 
> To: [EMAIL PROTECTED] 
> Sent: Wednesday, January 07, 2004 14:31
> Subject: stop

> I've requested 50 times to be taken off your mailing list, but you still send me 
> this unwanted mail.
> I will now report all mail sent to me by you as SPAM
> Stop sending me spam.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: stop

[Casey West]

It was Wednesday, January 07, 2004 when Dan Muey took the soap box, saying:
: Please tell me this thread will stay in the archives! It's hilarious!
: 
: I feel kinda bad for Mr. Kapp though, but if you're rude for no good 
: reason what can you expect.

Well, around these parts we don't *expect* rudeness in return.  I
believe that rudeness must conform to the "all things in moderation"
rule whenever it cannot be helped, which /should/ never happen.  :-)

For the record the archives don't lie, the thread will be there.
That's precisely why rudeness must be kept in check.

I think now is a good time to stop this thread.  Everything that
should have been said has been, as well as some things that shouldn't
have.  :-)

  Casey West

-- 
Shooting yourself in the foot with Pascal 
The compiler won't let you shoot yourself in the foot. 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: stop

[R. Joseph Newton]

Casey West wrote:

> It was Wednesday, January 07, 2004 when Dan Muey took the soap box, saying:
> : Please tell me this thread will stay in the archives! It's hilarious!
> :
> : I feel kinda bad for Mr. Kapp though, but if you're rude for no good
> : reason what can you expect.
>
> Well, around these parts we don't *expect* rudeness in return.  I
> believe that rudeness must conform to the "all things in moderation"
> rule whenever it cannot be helped, which /should/ never happen.  :-)
>
> For the record the archives don't lie, the thread will be there.
> That's precisely why rudeness must be kept in check.
>
> I think now is a good time to stop this thread.  Everything that
> should have been said has been, as well as some things that shouldn't
> have.  :-)
>
>   Casey West

Hi Casey,

I think there is one point that I have not seen presented here.  Unfortunately,
many *real* spammers abuse the courtesy [or legal requirement?] of unsubscribe
information, and actually use it as a probe to detect live addresses.  At least
many people believe that this is so.  Some people may fear that they would only
get enmeshed more deeply by using the unsubscribe link.

Thanks for re-asserting the standards of kindness for the list.

Joseph


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: stop

[Rob Dixon]

Casey West wrote:
>
> For the record the archives don't lie, the thread will be there.
> That's precisely why rudeness must be kept in check.

So we could be rude, except that it will be recorded so we mustn't?

Rob



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

stop/start

[rmck]

Hi

I'm trying to get this to work in perl. 

I want to start a unix process send it to a log file. Then at midnight kill it and 
restart it, with the date at the top.

I'm starting with the following but the intial start of the proccess is not working 
right:

#!/bin/perl
$date = `date | awk '{print $4}'`;
$snoop = "/usr/sbin/snoop";
$filename = "`date +%y%m%d%H%M`.sno";
$logfile = "/opt/$filename";
$pid = `/bin/pgrep snp.pl`;
 
system("/usr/sbin/snoop -d ge0 -ta >> $logfile &");
  
 
until ("1" eq "0"){
if ($date == "00:00:00"){
system("/bin/pkill -P $pid");
print "=== `date` ==\n" > $logfile;
system("/usr/sbin/snoop -d ge0 -ta >> $logfile &");
}
  }


Any suggestions would be helpfull. 
thanks
rob

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop

[Rene Quarshie]

> unsubscribe

--
"THE GREATEST ACHIEVEMENT IN THE HUMAN RACE IS SELF-RESPECT."

RE: stop

[John Edwards]

RTFM

http://learn.perl.org

-Original Message-
From: Jonathan Macpherson [mailto:[EMAIL PROTECTED]]
Sent: 22 May 1997 02:33
To: [EMAIL PROTECTED]
Subject: stop


unsubscribe


--Confidentiality--.
This E-mail is confidential.  It should not be read, copied, disclosed or
used by any person other than the intended recipient.  Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful.  If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.

Stop XML::Parser

[[EMAIL PROTECTED]]

Hi,

I have a simple question about XML::Parser. Is there a way to stop 
parsing in progress and how ?


Thanks in advance,

Andre

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: stop/start

[Tristram Nefzger]

Regarding writing a unix daemon in perl, you might have a look at
http://www.webreference.com/perl/tutorial/9/index.html

-tristram


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE:[OT] stop

[Tim Johnson]

Wow.  50 times.  That's some stamina.  I imagine that's almost as
annoying as getting a humongous Christmas picture background HTML mail
in your Perl mailing list... 






From: David Kapp [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, January 07, 2004 11:31 AM
To: [EMAIL PROTECTED]
Subject: stop

I've requested 50 times to be taken off your mailing list, but you still
send me this unwanted mail.
I will now report all mail sent to me by you as SPAM....
Stop sending me spam.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

[ADMIN] Re: stop

[Casey West]

It was Wednesday, January 07, 2004 when David Kapp took the soap box, saying:
: I've requested 50 times to be taken off your mailing list, but you still
: send me this unwanted mail.
: I will now report all mail sent to me by you as SPAM....
: Stop sending me spam.

You can send a message to [EMAIL PROTECTED] and respond
to the confirmation request you get as a result.  Emailing this list
directly will not help you.  If that still doesn't work for you, email
[EMAIL PROTECTED] with the exact email address you would like
removed and the perl.org admins will take care of it.

As an aside, this mailing list could never be SPAM to you because you
confirmed your subscription to it and thus every message is
solicited.  Even so, I'm sorry they bother you.

  Casey West

-- 
Shooting yourself in the foot with APL
You hear a gunshot and there's a hole in your foot, but you don't
remember enough linear algebra to understand what has happened.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: [OT] stop

[Ned Cunningham]

Yeah or taking the time to blame the users of the list.

Happy New Year!!!

Ned Cunningham
POS Systems Development
Monro Muffler Brake
200 Holleder Parkway
Rochester, NY 14615
(585) 647-6400 ext. 310
[EMAIL PROTECTED]

-Original Message-
From:   Tim Johnson [mailto:[EMAIL PROTECTED]
Sent:   Wednesday, January 07, 2004 2:36 PM
To: David Kapp; [EMAIL PROTECTED]
Subject:RE:[OT] stop


Wow.  50 times.  That's some stamina.  I imagine that's almost as
annoying as getting a humongous Christmas picture background HTML mail
in your Perl mailing list... 






From: David Kapp [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, January 07, 2004 11:31 AM
To: [EMAIL PROTECTED]
    Subject: stop

I've requested 50 times to be taken off your mailing list, but you 
still
send me this unwanted mail.
I will now report all mail sent to me by you as 
SPAM
    Stop sending me spam.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: stop/start

[John W. Krahn]

Rmck wrote:
> 
> Hi

Hello,

> I'm trying to get this to work in perl.

Which version of Perl?

> I want to start a unix process send it to a log file. Then at midnight
> kill it and restart it, with the date at the top.

Why do you need to kill and restart it?  Can't you just print the date at
midnight and keep it running?

> I'm starting with the following but the intial start of the proccess
> is not working right:
> 
> #!/bin/perl
> $date = `date | awk '{print $4}'`;

Perl has localtime() and gmtime() built-in so you don't have to run an
external program to get the time and if you need special formating you
can use sprintf() or POSIX::strftime().

> $snoop = "/usr/sbin/snoop";
> $filename = "`date +%y%m%d%H%M`.sno";

You can use POSIX::strftime() to do that without running an external program.

> $logfile = "/opt/$filename";
> $pid = `/bin/pgrep snp.pl`;
> 
> system("/usr/sbin/snoop -d ge0 -ta >> $logfile &");
> 
> until ("1" eq "0"){

This is usually written as:

while ( 1 ) {

Or:

for ( ;; ) {


> if ($date == "00:00:00"){

You don't change the value of $date in the loop so this will never be true.


> system("/bin/pkill -P $pid");
> print "=== `date` ==\n" > $logfile;
> system("/usr/sbin/snoop -d ge0 -ta >> $logfile &");
> }
>   }
> 
> Any suggestions would be helpfull.

Here are some UNTESTED suggestions:

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

my ( $sec, $min, $hour, $day, $mon, $year ) = localtime;

my $snoop   = '/usr/sbin/snoop -d ge0 -ta';
my $logfile = sprintf '/opt/%02d%02d%02d%02d%02d.sno',
$year % 100, $mon + 1, $day, $hour, $min;

open LOG, '>', $logfile or die "Cannot open $logfile: $!";
# set default output filehandle and autoflush
select LOG;
$| = 1;

print '=== ' . localtime . " ==\n";

open SNOOP, "$snoop |" or die "Cannot open pipe from $snoop: $!";

while (  ) {
print;
# restart this process if midnight
( $sec, $min, $hour ) = localtime;
exec $0 if $sec + $min + $hour == 0;
}

__END__



John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop/start

[Stephen Hardisty]

Hi,
you could write a handler for the signal alarm that starts a new process and
kills the current:
$SIG{ALRM} = {
`this-script`;
exit;
};

At the beginning of the script set the alarm to go off 24 hours later:
alarm(84600);

DISCLAIMER: haven't really thought it through and it's really hacky, so
don't have a go at me (but it is quick to do).

Cheers!



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop/start

[Stephen Hardisty]

> $SIG{ALRM} = {
> `this-script`;
> exit;
> };

Sorry, didn't think it through (before anybody notices.). Remove the
thing that executes the script (the bit in backticks) and just have the
process start on a cron job.

Tired, apologies.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: stop/start

[TN]

Given the original script submitted by [EMAIL PROTECTED]:

#!/bin/perl
$date = `date | awk '{print $4}'`;
$snoop = "/usr/sbin/snoop";
$filename = "`date +%y%m%d%H%M`.sno";
$logfile = "/opt/$filename";
$pid = `/bin/pgrep snp.pl`;
 
system("/usr/sbin/snoop -d ge0 -ta >> $logfile &");

 
until ("1" eq "0"){
if ($date == "00:00:00"){
system("/bin/pkill -P $pid");
print "=== `date` ==\n" > $logfile;
system("/usr/sbin/snoop -d ge0 -ta >> $logfile &"); }
  }

It seems to me that this will run in a busy loop continually checking
the time.  

I see two better alternatives: (1) Use cron as already suggested to
eliminate the until loop in the script; (2) Run the script as a daemon
that occasionally checks the time and every 24hrs creates a new logfile.

I don't see the point of using perl for either since (2) can be done
easily with a Bourne shell script, something like this:

 #!/bin/sh
 # untested daemon for logging snoop output
 interval=60 # seconds between checking day change
 pid = `/bin/pgrep snp.pl`
 while :
 do
   day="`date +%d`"
   date=`date +%y%m%d%H%M`
   logfile="/opt/${date}.sno"
   echo $date > $logfile
   /usr/sbin/snoop -d ge0 -ta >> $logfile &
   while :
   do
 sleep $interval
 newday="`date +%d`"
 if [ a$day -ne a$newday ]
 then kill -9 $pid # I believe in sure kills
  break # out of inner while loop
 fi
   done
 done

This needs testing, particularly regarding the success of the kill, but
I would not fix what ain't broke.

The use of snoop with your given options and ge0 device descriptor
confirms that you are running SunOS: on Linux I would use tcpdump which
is available on Solaris also and is more versatile for later analyisis
of the logs with some tools including ethereal (www.ethereal.com).

If you need an excellent, opensource IDS, Snort's the best beast
(www.snort.org).  Why else would you dedicate a machine to promiscuous
mode?

--
Tris Nefzger

-Original Message-
From: Stephen Hardisty [mailto:[EMAIL PROTECTED] 
Sent: Monday, September 22, 2003 5:10 PM
To: Perl List
Subject: Re: stop/start


> $SIG{ALRM} = {
> `this-script`;
> exit;
> };

Sorry, didn't think it through (before anybody notices.). Remove the
thing that executes the script (the bit in backticks) and just have the
process start on a cron job.

Tired, apologies.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

stop the Madness

[drieux]

> the sole purpose for me using perl is to:
> 1) manipulate ascii files with data in .
> 2) a front end (I.e Tk) to some analysis software we have - ...
> 3) a bit of fun

I feel morally compelled to point out to any of the
real Newbies who are on the beginner's mailing list
that this READS like the usual form of 'deep denial'
that needs to come out in the light of day.

Oh sure - today its a little text file manipulation,
a bit of CGI work with webFoo, a little DBI interface,
whack a GUI front end onto some dog piece of software,
you can Kick the Habit Any Time You Want. Or at least
that is what you tell your friends.

It's really only a small piece of bridge code, and you
can just make a little perl module to simplify the interface
between the various common applications, nothing serious...

Oh but if I just subclass FOO::BAR that you found at
[TheCPAN|SourceForge|someCoolWebSite|ThisGuyYouMetInSomeDarkBackAlley]
then of course I can adapt it to fix this other bit...

I merely wanted to have some better monitoring code for
our system wide solution - and I merely downloaded from

http://www.kernel.org/software/mon/

and all I have to do is just rework a few bits here and there.
I mean that way I can monitor the systems more efficiently so
that I can spend more time coding this cool little extension
to this perl module

But if I adopt the p5ee standards, then I have a common
technology that will interoperate between my webFront End
and my Database Services on Legacy Architectures, including
those older OS's where java has not been ported to yet...

People REALLY NEED to be forewarned about the dangers!

Do you find yourself seeking work where perl is readily available?

Do you find yourself spending more of your time with other
people who Perl than with normal people?

Do you notice that you are going without the essentials
food, water, shelter, simply so that you can perl?

Have you ever found yourself waking up in strange places, in
clothes you clearly haven't changed in days, with no memory
of how you got there, in a littered heap of perl code printouts?

People REALLY should think about these things before deciding
if they really want to even know perl.

ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Stop Perf monitor

[Amy sing]

does anyone have an idea/script to stop and
application like performace monitor.. rename the log
file and start the application.. Perfmon does not run
as a service..it runs as a process

__
Do You Yahoo!?
Great stuff seeking new owners in Yahoo! Auctions! 
http://auctions.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

PLEASE STOP SENDING MIALS

[Alok Alan]

Stop sending me email

[MW2547]

Stop sending me email

Stop sending me email

[MW2547]

Stop sending me email

please stop sending mails

[Huh, Jung]

RE: stop the Madness

[Nikola Janceski]

See answers of a mid-level (3 years) Perl user below.

> -Original Message-
> From: drieux [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, May 16, 2002 12:11 PM
> To: [EMAIL PROTECTED]
> Subject: stop the Madness
> 
> 
> 
> > the sole purpose for me using perl is to:
> > 1) manipulate ascii files with data in .
> > 2) a front end (I.e Tk) to some analysis software we have - ...
> > 3) a bit of fun
> 
> I feel morally compelled to point out to any of the
> real Newbies who are on the beginner's mailing list
> that this READS like the usual form of 'deep denial'
> that needs to come out in the light of day.
> 
> Oh sure - today its a little text file manipulation,
> a bit of CGI work with webFoo, a little DBI interface,
> whack a GUI front end onto some dog piece of software,
> you can Kick the Habit Any Time You Want. Or at least
> that is what you tell your friends.
> 
> It's really only a small piece of bridge code, and you
> can just make a little perl module to simplify the interface
> between the various common applications, nothing serious...
> 
> Oh but if I just subclass FOO::BAR that you found at
> [TheCPAN|SourceForge|someCoolWebSite|ThisGuyYouMetInSomeDarkBackAlley]
> then of course I can adapt it to fix this other bit...
> 
> I merely wanted to have some better monitoring code for
> our system wide solution - and I merely downloaded from
> 
>   http://www.kernel.org/software/mon/
> 
> and all I have to do is just rework a few bits here and there.
> I mean that way I can monitor the systems more efficiently so
> that I can spend more time coding this cool little extension
> to this perl module
> 
> But if I adopt the p5ee standards, then I have a common
> technology that will interoperate between my webFront End
> and my Database Services on Legacy Architectures, including
> those older OS's where java has not been ported to yet...
> 
> People REALLY NEED to be forewarned about the dangers!
> 
> Do you find yourself seeking work where perl is readily available?

Yes, thank goodness, can't imagine work without Perl.

> 
> Do you find yourself spending more of your time with other
>   people who Perl than with normal people?
> 

Yes, and it's lonely at my work place. I am the Perl Guru at work.
They call me FMP, Funk Master Perl.

> Do you notice that you are going without the essentials
>   food, water, shelter, simply so that you can perl?

Not really, I have supplies at my desk at all times:
Bottle of water, snacks, sweater, deodorant.

> 
> Have you ever found yourself waking up in strange places, in
>   clothes you clearly haven't changed in days, with no memory
>   of how you got there, in a littered heap of perl code printouts?

change perl code printouts to perl doc printouts and you got me on the
money.

> 
> People REALLY should think about these things before deciding
> if they really want to even know perl.
> 

If I knew then, what I know now, I would have Perl-ed at Perl v1.0.

> ciao
> drieux
> 
> ---
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 



The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop the Madness

[LoneWolf]

HILARIOUS!!

:)

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop the Madness

[A Taylor]

SO TRUE ! GLAD I AM NOT ALONE !!! HA HA

>I feel morally compelled to point out to any of the
>real Newbies who are on the beginner's mailing list
>that this READS like the usual form of 'deep denial'
>that needs to come out in the light of day.
>
>Oh sure - today its a little text file manipulation,
>a bit of CGI work with webFoo, a little DBI interface,
>whack a GUI front end onto some dog piece of software,
>you can Kick the Habit Any Time You Want. Or at least
>that is what you tell your friends.
>
>It's really only a small piece of bridge code, and you
>can just make a little perl module to simplify the interface
>between the various common applications, nothing serious...
>
>Oh but if I just subclass FOO::BAR that you found at
>[TheCPAN|SourceForge|someCoolWebSite|ThisGuyYouMetInSomeDarkBackAlley]
>then of course I can adapt it to fix this other bit...
>
>I merely wanted to have some better monitoring code for
>our system wide solution - and I merely downloaded from
>
>   http://www.kernel.org/software/mon/
>
>and all I have to do is just rework a few bits here and there.
>I mean that way I can monitor the systems more efficiently so
>that I can spend more time coding this cool little extension
>to this perl module
>
>But if I adopt the p5ee standards, then I have a common
>technology that will interoperate between my webFront End
>and my Database Services on Legacy Architectures, including
>those older OS's where java has not been ported to yet...
>
>People REALLY NEED to be forewarned about the dangers!
>
>Do you find yourself seeking work where perl is readily available?
>
>Do you find yourself spending more of your time with other
>   people who Perl than with normal people?
>
>Do you notice that you are going without the essentials
>   food, water, shelter, simply so that you can perl?
>
>Have you ever found yourself waking up in strange places, in
>   clothes you clearly haven't changed in days, with no memory
>   of how you got there, in a littered heap of perl code printouts?
>
>People REALLY should think about these things before deciding
>if they really want to even know perl.
>
>ciao
>drieux
>
>---
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>




_
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: stop the Madness

[Timothy Johnson]

And there's always those days where you start sending out emails with
semicolons at the end of the sentences.  Yesterday I even caught myself
writing code on a piece of napkin on my lunch.  I'm afraid the day will
finally come where I start trying to rearrange all of my paragraphs into a
single sentence.  I mean sure, noone will know what the hell I'm talking
about, but look how efficient my speech has become!  HELP ME!!!

-Original Message-
From: A Taylor [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 16, 2002 9:36 AM
To: [EMAIL PROTECTED]
Subject: Re: stop the Madness


SO TRUE ! GLAD I AM NOT ALONE !!! HA HA

>I feel morally compelled to point out to any of the
>real Newbies who are on the beginner's mailing list
>that this READS like the usual form of 'deep denial'
>that needs to come out in the light of day.
>
>Oh sure - today its a little text file manipulation,
>a bit of CGI work with webFoo, a little DBI interface,
>whack a GUI front end onto some dog piece of software,
>you can Kick the Habit Any Time You Want. Or at least
>that is what you tell your friends.
>
>It's really only a small piece of bridge code, and you
>can just make a little perl module to simplify the interface
>between the various common applications, nothing serious...
>
>Oh but if I just subclass FOO::BAR that you found at
>[TheCPAN|SourceForge|someCoolWebSite|ThisGuyYouMetInSomeDarkBackAlley]
>then of course I can adapt it to fix this other bit...
>
>I merely wanted to have some better monitoring code for
>our system wide solution - and I merely downloaded from
>
>   http://www.kernel.org/software/mon/
>
>and all I have to do is just rework a few bits here and there.
>I mean that way I can monitor the systems more efficiently so
>that I can spend more time coding this cool little extension
>to this perl module
>
>But if I adopt the p5ee standards, then I have a common
>technology that will interoperate between my webFront End
>and my Database Services on Legacy Architectures, including
>those older OS's where java has not been ported to yet...
>
>People REALLY NEED to be forewarned about the dangers!
>
>Do you find yourself seeking work where perl is readily available?
>
>Do you find yourself spending more of your time with other
>   people who Perl than with normal people?
>
>Do you notice that you are going without the essentials
>   food, water, shelter, simply so that you can perl?
>
>Have you ever found yourself waking up in strange places, in
>   clothes you clearly haven't changed in days, with no memory
>   of how you got there, in a littered heap of perl code printouts?
>
>People REALLY should think about these things before deciding
>if they really want to even know perl.
>
>ciao
>drieux
>
>---
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>




_
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: stop the Madness

[Nikola Janceski]

print "Resistance is futile\n";

> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, May 16, 2002 1:45 PM
> To: [EMAIL PROTECTED]
> Subject: RE: stop the Madness
> 
> 
> 
> And there's always those days where you start sending out emails with
> semicolons at the end of the sentences.  Yesterday I even 
> caught myself
> writing code on a piece of napkin on my lunch.  I'm afraid 
> the day will
> finally come where I start trying to rearrange all of my 
> paragraphs into a
> single sentence.  I mean sure, noone will know what the hell 
> I'm talking
> about, but look how efficient my speech has become!  HELP ME!!!
> 
> -Original Message-
> From: A Taylor [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, May 16, 2002 9:36 AM
> To: [EMAIL PROTECTED]
> Subject: Re: stop the Madness
> 
> 
> SO TRUE ! GLAD I AM NOT ALONE !!! HA HA
> 
> >I feel morally compelled to point out to any of the
> >real Newbies who are on the beginner's mailing list
> >that this READS like the usual form of 'deep denial'
> >that needs to come out in the light of day.
> >
> >Oh sure - today its a little text file manipulation,
> >a bit of CGI work with webFoo, a little DBI interface,
> >whack a GUI front end onto some dog piece of software,
> >you can Kick the Habit Any Time You Want. Or at least
> >that is what you tell your friends.
> >
> >It's really only a small piece of bridge code, and you
> >can just make a little perl module to simplify the interface
> >between the various common applications, nothing serious...
> >
> >Oh but if I just subclass FOO::BAR that you found at
> >[TheCPAN|SourceForge|someCoolWebSite|ThisGuyYouMetInSomeDarkB
> ackAlley]
> >then of course I can adapt it to fix this other bit...
> >
> >I merely wanted to have some better monitoring code for
> >our system wide solution - and I merely downloaded from
> >
> > http://www.kernel.org/software/mon/
> >
> >and all I have to do is just rework a few bits here and there.
> >I mean that way I can monitor the systems more efficiently so
> >that I can spend more time coding this cool little extension
> >to this perl module
> >
> >But if I adopt the p5ee standards, then I have a common
> >technology that will interoperate between my webFront End
> >and my Database Services on Legacy Architectures, including
> >those older OS's where java has not been ported to yet...
> >
> >People REALLY NEED to be forewarned about the dangers!
> >
> >Do you find yourself seeking work where perl is readily available?
> >
> >Do you find yourself spending more of your time with other
> > people who Perl than with normal people?
> >
> >Do you notice that you are going without the essentials
> > food, water, shelter, simply so that you can perl?
> >
> >Have you ever found yourself waking up in strange places, in
> > clothes you clearly haven't changed in days, with no memory
> > of how you got there, in a littered heap of perl code printouts?
> >
> >People REALLY should think about these things before deciding
> >if they really want to even know perl.
> >
> >ciao
> >drieux
> >
> >---
> >
> >
> >--
> >To unsubscribe, e-mail: [EMAIL PROTECTED]
> >For additional commands, e-mail: [EMAIL PROTECTED]
> >
> 
> 
> 
> 
> _
> Get your FREE download of MSN Explorer at 
> http://explorer.msn.com/intl.asp.
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 



The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: stop the Madness

[Jonathan E. Paton]

 --- Timothy Johnson <[EMAIL PROTECTED]> wrote:
> 
> And there's always those days where you start sending out emails with
> semicolons at the end of the sentences.  Yesterday I even caught myself
> writing code on a piece of napkin on my lunch.  I'm afraid the day will
> finally come where I start trying to rearrange all of my paragraphs into a
> single sentence.  I mean sure, noone will know what the hell I'm talking
> about, but look how efficient my speech has become!  HELP ME!!!

@_="Just don't play Perl golf!"=~/./g;
$"="",warn"@_[0..$_]\n"for+0..25

Jonathan Perlton^WPaton

__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop the Madness

[Alan Drew]

Sorry - sent this to the wrong addy by mistake..
:O)
A.

>
> On Thursday, May 16, 2002, at 05:44 PM, Timothy Johnson wrote:
>
>> ...  Yesterday I even caught myself
>> writing code on a piece of napkin on my lunch
>>
> I have been doing that for years - just not with perl. I always find 
> the best work is done on the back of a napkin or envelope.
> A.
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: stop the Madness

[Jackson, Harry]

> -Original Message-
> From: Alan Drew [mailto:[EMAIL PROTECTED]]
> > On Thursday, May 16, 2002, at 05:44 PM, Timothy Johnson wrote:
> >
> >> ...  Yesterday I even caught myself
> >> writing code on a piece of napkin on my lunch
> >>
> > I have been doing that for years - just not with perl. I 
> always find 
> > the best work is done on the back of a napkin or envelope.


My most common mistake is finding ":w" in almost everything I write. I know
its bugger all to do with Perl but because of the amount of Perl I have been
writing I cannot get away from it.

H:w


*
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ
Tel. +44 20 7390 3900

This message is subject to and does not create or vary any contractual
relationship between COLT Telecommunications, its subsidiaries or 
affiliates ("COLT") and you. Internet communications are not secure
and therefore COLT does not accept legal responsibility for the
contents of this message.  Any view or opinions expressed are those of
the author. The message is intended for the addressee only and its
contents and any attached files are strictly confidential. If you have
received it in error, please telephone the number above. Thank you.
*


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop the Madness

[Arran4]

heh thats has already been added to my ever growing signuture hehehe (should
shorten it sometimes)


From: Arran
===
It is obvious:
  The only program that parses Perl is perl, and to really be
  Perl you also have to be perl.  The easiest way to turn
  Perl code into an executable is to embed the perl interpreter!

song: "If you are sexy and you know it clap your hands"
Me: im going to go have to sit this one out...

If builders built buildings the way programmers wrote programs, then the
first woodpecker to come along would destroy civilization.

We are the out casts of society, but when they relise its the out casts that
create society, we will fall.

Everything I know about thermal expansion I learnt from Neon Genesis
Evangelion!

And there's always those days where you start sending out emails with
semicolons at the end of the sentences.  Yesterday I even caught myself
writing code on a piece of napkin on my lunch.  I'm afraid the day will
finally come where I start trying to rearrange all of my paragraphs into a
single sentence.  I mean sure, noone will know what the hell
- Original Message -
From: "Timothy Johnson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, May 17, 2002 3:44 AM
Subject: RE: stop the Madness


>
> And there's always those days where you start sending out emails with
> semicolons at the end of the sentences.  Yesterday I even caught myself
> writing code on a piece of napkin on my lunch.  I'm afraid the day will
> finally come where I start trying to rearrange all of my paragraphs into a
> single sentence.  I mean sure, noone will know what the hell I'm talking
> about, but look how efficient my speech has become!  HELP ME!!!
>
> -Original Message-
> From: A Taylor [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, May 16, 2002 9:36 AM
> To: [EMAIL PROTECTED]
> Subject: Re: stop the Madness
>
>
> SO TRUE ! GLAD I AM NOT ALONE !!! HA HA
>
> >I feel morally compelled to point out to any of the
> >real Newbies who are on the beginner's mailing list
> >that this READS like the usual form of 'deep denial'
> >that needs to come out in the light of day.
> >
> >Oh sure - today its a little text file manipulation,
> >a bit of CGI work with webFoo, a little DBI interface,
> >whack a GUI front end onto some dog piece of software,
> >you can Kick the Habit Any Time You Want. Or at least
> >that is what you tell your friends.
> >
> >It's really only a small piece of bridge code, and you
> >can just make a little perl module to simplify the interface
> >between the various common applications, nothing serious...
> >
> >Oh but if I just subclass FOO::BAR that you found at
> >[TheCPAN|SourceForge|someCoolWebSite|ThisGuyYouMetInSomeDarkBackAlley]
> >then of course I can adapt it to fix this other bit...
> >
> >I merely wanted to have some better monitoring code for
> >our system wide solution - and I merely downloaded from
> >
> > http://www.kernel.org/software/mon/
> >
> >and all I have to do is just rework a few bits here and there.
> >I mean that way I can monitor the systems more efficiently so
> >that I can spend more time coding this cool little extension
> >to this perl module
> >
> >But if I adopt the p5ee standards, then I have a common
> >technology that will interoperate between my webFront End
> >and my Database Services on Legacy Architectures, including
> >those older OS's where java has not been ported to yet...
> >
> >People REALLY NEED to be forewarned about the dangers!
> >
> >Do you find yourself seeking work where perl is readily available?
> >
> >Do you find yourself spending more of your time with other
> > people who Perl than with normal people?
> >
> >Do you notice that you are going without the essentials
> > food, water, shelter, simply so that you can perl?
> >
> >Have you ever found yourself waking up in strange places, in
> > clothes you clearly haven't changed in days, with no memory
> > of how you got there, in a littered heap of perl code printouts?
> >
> >People REALLY should think about these things before deciding
> >if they really want to even know perl.
> >
> >ciao
> >drieux
> >
> >---
> >
> >
> >--
> >To unsubscribe, e-mail: [EMAIL PROTECTED]
> >For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
>
>
>
> _
> Get your FREE download of MSN Explorer at
http://explorer.msn.com/intl.asp.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> 
> http://1cis.com
> Free E-mail Servers with unlimited mailboxes
> 1st Class Internet Solutions



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: stop the Madness

[Felix Geerinckx]

on Mon, 20 May 2002 12:25:26 GMT, [EMAIL PROTECTED]
(Arran4) wrote: 

> heh thats has already been added to my ever growing signuture
> hehehe (should shorten it sometimes)

I don't think this is funny. Your 'signature' is 24 lines long now, and 
contains over 1000 bytes. According to , the beginners 
list has 3547 members, which means that with every message you send, 
you waste over 3 MB of bandwidth.

Please be nice and consider shorten your signature *now* in stead of 
'sometimes'.

-- 
felix

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

remove the stop words

[Ying Liu]

Hi,

Is there a good method to do this? I need to remove the stop words from the comment 
field of every record. There are about 20,000 records. The comments look like this: 

Yersinia pestis strain Nepal (aka CDC 516 or 369 isolated from human) 16S-23S in 
tergenic region amplified with 16UNIX and 23UNII primers. Sequencing primers were UNI1 
and UNI2   5/25/99^^

I should remove 'and' 'in' 'with' 'The', etc. I have set up the stop words array. Is 
there a efficient way to do this?

Thanks,

Ying Liu

 



-
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup

Re: PLEASE STOP SENDING MIALS

[Shawn H. Corey]

Alok Alan wrote:



  


There is nothing that can be done about mials but if you don't want 
emails, see: http://lists.cpan.org/showlist.cgi?name=beginners


--
Just my 0.0002 million dollars worth,
  Shawn

Programming is as much about organization and communication
as it is about coding.

Regardless of how small the crowd is, there is always one in
it who has to find out the hard way that the laws of physics
apply to them too.


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: PLEASE STOP SENDING MIALS

[Randal L. Schwartz]

> ""Shawn" == "Shawn H Corey"  writes:

"Shawn> Alok Alan wrote:
>> 

"Shawn> There is nothing that can be done about mials but if you don't want 
emails,
"Shawn> see: http://lists.cpan.org/showlist.cgi?name=beginners

I don't want any Mials either.  I don't know what they are, but they
can't be good. :)

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
 http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Stop the mail to me

[ganesh vignesh]

Stop mail

On 10/6/11, Chris Stinemetz  wrote:
> trying to learn smart matching in an exercise.
>
> Why does this program output "odd" when I input an even number?
>
> Thank you,
>
> Chris
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
> use 5.010;
>
> say "Checking the number <$ARGV[0]>";
>
> my $favorite = 62;
>
> given( $ARGV[0] ) {
> when( ! /^\d+$/ ) { say "Not a number!" }
>
> my @divisors = divisors( $ARGV[0] );
>
> when( @divisors ~~ 2 ) { # 2 is in @divisors
> say "$_ is even";
> continue;
> }
>
> when( !( @divisors ~~ 2 ) ) { # 2 isn't in @divisors
> say "$_ is odd!";
> continue;
> }
>
> when( @divisors ~~ $favorite ) {
> say "$_ is divisible by my favorite number";
> continue;
> }
>
> when( $favorite ) { # $_ ~~ $favorite
> say "$_ is my favorite number";
> continue;
> }
>
> my @empty;
> when( @divisors ~~ @empty ) { say "Number is prime" }
>
> default { say "$_ is divisible by @divisors" }
> }
>
> sub divisors {
> my $number = shift;
>
> my @divisors = ();
> foreach my $divisor ( 2 .. ($ARGV[0]/2 + 1) ) {
> push @divisors, $divisor unless $number % $divisor;
> }
>
> return @divisors;
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>

-- 
Sent from my mobile device

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Window Services - stop/start (Newbie)...

[Yuen, Alex]

Hi,

Does anyone know if Perl can stop or start a Service in Windows NT or 2000?

Trying to write a script to stop the Service of an application, archive the
log files and then restart the Service. Plus, record this transaction to a
seperate log file. Another plus, send out an e-mail notification if an error
were to occur in any step of the Perl script.

Haven't decided to attach the log to the e-mail or not. But would be using
Mime::Lite for this.

Thanks.

Alex

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Stop sending me email

[MW2547]

 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: remove the stop words

[David Gray]

> Is there a good method to do this? I need to remove the stop 
> words from the comment field of every record. There are about 
> 20,000 records. The comments look like this: 
> 
> Yersinia pestis strain Nepal (aka CDC 516 or 369 isolated 
> from human) 16S-23S in tergenic region amplified with 16UNIX 
> and 23UNII primers. Sequencing primers were UNI1 and UNI2   5/25/99^^
> 
> I should remove 'and' 'in' 'with' 'The', etc. I have set up 
> the stop words array. Is there a efficient way to do this?

How about:

 code
 #!perl -w
 use strict;
 
 my ($r,$tmp) = '' x 2;
 my $input = 'blah srand and spin in with within the their';
 my @s_words = qw(and in with the);
 
 for(@s_words) {
   $tmp .= " \\b$_\\b";
   $tmp .= '|' unless $_ eq $s_words[$#s_words];
 }
 $r = qr/$tmp/is;
 print $r;
 
 print "\n\n$input\n\n";
 $input =~ s/$r//g;
 print "$input\n";
 end

It builds a regex using your search words and then applies it to a
string.

HTH,

 -dave



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: remove the stop words

[Janek Schleicher]

Ying Liu wrote at Mon, 03 Jun 2002 17:11:22 +0200:

> Is there a good method to do this? I need to remove the stop words from the comment 
>field of every
> record. There are about 20,000 records. The comments look like this:
> 
> Yersinia pestis strain Nepal (aka CDC 516 or 369 isolated from human) 16S-23S in 
>tergenic region
> amplified with 16UNIX and 23UNII primers. Sequencing primers were UNI1 and UNI2   
>5/25/99^^
> 
> I should remove 'and' 'in' 'with' 'The', etc. I have set up the stop words array. Is 
>there a
> efficient way to do this?
> 

Let's try:

my %stop_words = map {$_ => 1} qw(and in with The);

my $text = <<'TEXT';
Yersinia pestis strain Nepal (aka CDC 516 or 369 isolated from human) 16S-23S in 
tergenic region
amplified with 16UNIX and 23UNII primers. Sequencing primers were UNI1 and UNI2   
5/25/99^^
TEXT

my $clean_text = 
  join " ", grep {! $stop_words{$_}} split /\W+/, $text;

(In fact it will remove all dots, commata and so on, too)
If you don't want it, try instead:

my $clean_text =
  join "", grep {! $stop_words{$_}} split /(\W+)/, $text;


Best Wishes,
Janek

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Stop sent the mail to me

[ganesh vignesh]

Stop the mail

On 10/7/11, Marc  wrote:
> On Sep 8, 2011, at 10:13 AM, Rob Dixon wrote:
>
>> my $string = 'The Kcl Group';
>>
>> $string =~ s/\b([aeiouy]{3,4}|[^aeiouy]{3,4})\b/\U$1/ig;
>>
>> print $string, "\n";
>
>   I'd like to revisit this, if I could.  I've modified the above regex so 
> as
> not to capitalize ordinal numbers, however I've noticed that it produces
> incorrect output if the word has an apostrophe.  Given:
>
> my $string = "rex's chicken on 51st st. at lkj";
> $string =~ s/\b([aeiouy]{3,4}|[^aeiouy0123456789]{3,4})\b/uc($1)/eg;
>
> the output is:
> Rex'S Chicken on 51st ST. at LKJ
>
> It should be:
> Rex's Chicken on 51st St. at LKJ
>
>   I Googled and tried everything I'd found, but I can't fix it.  Again, 
> that
> line should capitalize 3 and 4 letter words that have either all vowels or
> all capitals.  The code I found below works great for capitalization except
> for that one regex which throws a wrench into it.
>
> Thanks,
> Marc
>
> ---
>
> # http://daringfireball.net/2008/08/title_case_update
>
> use strict;
> use warnings;
> use utf8;
> use open qw( :encoding(UTF-8) :std );
>
>
> my @small_words = qw( (? or the to v[.]? via vs[.]? );
> my $small_re = join '|', @small_words;
>
> my $apos = qr/ (?: ['’] [[:lower:]]* )? /x;
>
> my $string = "rex's chicken on 51st st at lkj";
>
> $string =~
>   s{
>   \b (_*) (?:
>   ( [-_[:alpha:]]+ [@.:/] [-_[:alpha:]@.:/]+ $apos ) # 
> URL, domain, or
> email
>   |
>   ( (?i: $small_re ) $apos ) # or 
> small word
> (case-insensitive)
>   |
>   ( [[:alpha:]] [[:lower:]'’()\[\]{}]* $apos ) # or 
> word w/o internal
> caps
>   |
>   ( [[:alpha:]] [[:alpha:]'’()\[\]{}]* $apos ) # or 
> some other word
>   ) (_*) \b
>   }{
>   $1 . (
> defined $2 ? $2 # preserve URL, domain, or email
>   : defined $3 ? "\L$3" # lowercase small word
>   : defined $4 ? "\u\L$4"   # capitalize word w/o internal caps
>   : $5  # preserve other kinds of word
>   ) . $6
>   }exgo;
>
> $string =~
>   # exceptions for small words: capitalize at start and end of title
>   s{
>   (  \A [[:punct:]]* # start of title...
>   |  [:.;?!][ ]+ # or of subsentence...
>   |  [ ]['"“‘(\[][ ]* )  # or of inserted subphrase...
>   ( $small_re ) \b   # ... followed by small word
>   }{
>   $1\u\L$2
>   }xigo;
>
> $string =~
>   s{
>   \b ( $small_re ) # small word...
>   (?= [[:punct:]]* \Z  # ... at the end of the title...
>   |   ['"’†)\]] [ ] )   # ... or of an inserted subphrase?
>   }{
>   \u\L$1
>   }xigo;
>
> $string =~ s/\b([aeiouy]{3,4}|[^aeiouy0123456789]{3,4})\b/uc($1)/eg;
>
>   print "$string \n";
>   print "$string \n";
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>

-- 
Sent from my mobile device

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Stop the mail to me

[Ramprasad Prasad]

>
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>



Read the footer of the mail

Re: Stop the mail to me

[Sheppy R]

Stop spamming us with stop mail requests and use the instructions included
at the bottom of the email to unsubscribe.

To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

On Fri, Oct 7, 2011 at 6:24 AM, ganesh vignesh wrote:

> Stop mail
>
> On 10/6/11, Chris Stinemetz  wrote:
> > trying to learn smart matching in an exercise.
> >
> > Why does this program output "odd" when I input an even number?
> >
> > Thank you,
> >
> > Chris
> >
> > #!/usr/bin/perl
> >
> > use warnings;
> > use strict;
> >
> > use 5.010;
> >
> > say "Checking the number <$ARGV[0]>";
> >
> > my $favorite = 62;
> >
> > given( $ARGV[0] ) {
> > when( ! /^\d+$/ ) { say "Not a number!" }
> >
> > my @divisors = divisors( $ARGV[0] );
> >
> > when( @divisors ~~ 2 ) { # 2 is in @divisors
> > say "$_ is even";
> > continue;
> > }
> >
> > when( !( @divisors ~~ 2 ) ) { # 2 isn't in @divisors
> > say "$_ is odd!";
> > continue;
> > }
> >
> > when( @divisors ~~ $favorite ) {
> > say "$_ is divisible by my favorite number";
> > continue;
> > }
> >
> > when( $favorite ) { # $_ ~~ $favorite
> > say "$_ is my favorite number";
> > continue;
> > }
> >
> > my @empty;
> > when( @divisors ~~ @empty ) { say "Number is prime" }
> >
> > default { say "$_ is divisible by @divisors" }
> > }
> >
> > sub divisors {
> > my $number = shift;
> >
> > my @divisors = ();
> > foreach my $divisor ( 2 .. ($ARGV[0]/2 + 1) ) {
> > push @divisors, $divisor unless $number % $divisor;
> > }
> >
> > return @divisors;
> >
> > --
> > To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> > For additional commands, e-mail: beginners-h...@perl.org
> > http://learn.perl.org/
> >
> >
> >
>
> --
> Sent from my mobile device
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>

RE: Window Services - stop/start (Newbie)...

[Timothy Johnson]

Check out Win32::Service or Win32::Lanman.  Lanman is a whole lot to chew,
but it can do just about anything involving remote administration of
NT/2000/XP machines.

-Original Message-
From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 10, 2002 1:33 PM
To: 'Perl Beginners'
Subject: Window Services - stop/start (Newbie)...


Hi,

Does anyone know if Perl can stop or start a Service in Windows NT or 2000?

Trying to write a script to stop the Service of an application, archive the
log files and then restart the Service. Plus, record this transaction to a
seperate log file. Another plus, send out an e-mail notification if an error
were to occur in any step of the Perl script.

Haven't decided to attach the log to the e-mail or not. But would be using
Mime::Lite for this.

Thanks.

Alex

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Window Services - stop/start (Newbie)...

[RTO RTO]

Try Win32::Service.

Functions of interest are:

StopService($hostName, $svcName);
StartService($hostName, $svcName);
PauseService($hostName, $svcName);
ResumeService($hostName, $svcName);

You can execute any of the functions of this module on
remote-servers attached to the same network that you
are and you should have ADMINISTRATOR level privileges
on those machines so as to control their services, via
remote-registry.

Cheers,
Rex


--- "Yuen, Alex" <[EMAIL PROTECTED]> wrote:
> Hi,
> 
> Does anyone know if Perl can stop or start a Service
> in Windows NT or 2000?
> 
> Trying to write a script to stop the Service of an
> application, archive the
> log files and then restart the Service. Plus, record
> this transaction to a
> seperate log file. Another plus, send out an e-mail
> notification if an error
> were to occur in any step of the Perl script.
> 
> Haven't decided to attach the log to the e-mail or
> not. But would be using
> Mime::Lite for this.
> 
> Thanks.
> 
> Alex
> 
> -- 
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> 


__
Yahoo! - We Remember
9-11: A tribute to the more than 3,000 lives lost
http://dir.remember.yahoo.com/tribute

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Window Services - stop/start (Newbie)...

[Yuen, Alex]

Hi,

I just tried to install both modules (Win32::Service & Win32::Lanman). Get
the message that I am using the wrong build of Perl. Both files were
downloaded from CPAN. 

Didn't see a make.pl file, but did see an install.pl file. Ran that file and
get the error message above. Do I need to create a make.pl file to install
the module?

Or am I missing something very simple?

I am using ActiveState Perl 5.6.1 Build 633. I copied this from the command
prompt...using Windows NT 4.0.


***
E:\>perl -v

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
Built 21:33:05 Jun 17 2002


Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

***
Thanks.

Alex


> --
> From: Timothy Johnson[SMTP:[EMAIL PROTECTED]]
> Sent: Tuesday, September 10, 2002 4:34 PM
> To:   'Yuen, Alex'; 'Perl Beginners'
> Subject:  RE: Window Services - stop/start (Newbie)...
> 
> 
> Check out Win32::Service or Win32::Lanman.  Lanman is a whole lot to chew,
> but it can do just about anything involving remote administration of
> NT/2000/XP machines.
> 
> -Original Message-
> From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, September 10, 2002 1:33 PM
> To: 'Perl Beginners'
> Subject: Window Services - stop/start (Newbie)...
> 
> 
> Hi,
> 
> Does anyone know if Perl can stop or start a Service in Windows NT or
> 2000?
> 
> Trying to write a script to stop the Service of an application, archive
> the
> log files and then restart the Service. Plus, record this transaction to a
> seperate log file. Another plus, send out an e-mail notification if an
> error
> were to occur in any step of the Perl script.
> 
> Haven't decided to attach the log to the e-mail or not. But would be using
> Mime::Lite for this.
> 
> Thanks.
> 
> Alex
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Window Services - stop/start (Newbie)...

[Timothy Johnson]

Why don't you install it via PPM?  If it's not in the Activestate
repository, you can install it using Dave Roth's PPM repository.

PPM> set repository dave http://www.roth.net/perl/packages
PPM> set save
PPM> install win32-service

For Win32::Lanman (and many other useful modules), use Jenda's repository:
http://jenda.krynicky.cz/perl


-Original Message-
From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 11:50 AM
To: 'Perl Beginners'
Subject: RE: Window Services - stop/start (Newbie)...


Hi,

I just tried to install both modules (Win32::Service & Win32::Lanman). Get
the message that I am using the wrong build of Perl. Both files were
downloaded from CPAN. 

Didn't see a make.pl file, but did see an install.pl file. Ran that file and
get the error message above. Do I need to create a make.pl file to install
the module?

Or am I missing something very simple?

I am using ActiveState Perl 5.6.1 Build 633. I copied this from the command
prompt...using Windows NT 4.0.


***
E:\>perl -v

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
Built 21:33:05 Jun 17 2002


Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

***
Thanks.

Alex


> --
> From: Timothy Johnson[SMTP:[EMAIL PROTECTED]]
> Sent: Tuesday, September 10, 2002 4:34 PM
> To:   'Yuen, Alex'; 'Perl Beginners'
> Subject:  RE: Window Services - stop/start (Newbie)...
> 
> 
> Check out Win32::Service or Win32::Lanman.  Lanman is a whole lot to chew,
> but it can do just about anything involving remote administration of
> NT/2000/XP machines.
> 
> -Original Message-
> From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, September 10, 2002 1:33 PM
> To: 'Perl Beginners'
> Subject: Window Services - stop/start (Newbie)...
> 
> 
> Hi,
> 
> Does anyone know if Perl can stop or start a Service in Windows NT or
> 2000?
> 
> Trying to write a script to stop the Service of an application, archive
> the
> log files and then restart the Service. Plus, record this transaction to a
> seperate log file. Another plus, send out an e-mail notification if an
> error
> were to occur in any step of the Perl script.
> 
> Haven't decided to attach the log to the e-mail or not. But would be using
> Mime::Lite for this.
> 
> Thanks.
> 
> Alex
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Window Services - stop/start (Newbie)...

[Yuen, Alex]

Tim, 

Thanks for this information.

I managed to install Win32::Lanman using PPM. But I still got an error
message installing Win32::Service. I'm going to see how difficult Lanman is
before racking my head with Win32::Service. 

But here is the error I got if anyone is interested. :)

*
E:\>ppm
PPM interactive shell (2.1.6) - type 'help' for available commands.
PPM> set repository dave http://www.roth.net/perl/packages
PPM> set save
PPM> install win32-service
Install package 'win32-service?' (y/N): y
Installing package 'win32-service'...
Error installing package 'win32-service': Read a PPD for 'win32-service',
but it is not intended for this build of Perl (MSWin32-x86-multi-thread)
PPM> quit
Quit!
*
Thanks.

Alex


> --
> From: Timothy Johnson[SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 4:13 PM
> To:   'Yuen, Alex'; 'Perl Beginners'
> Subject:  RE: Window Services - stop/start (Newbie)...
> 
> 
> Why don't you install it via PPM?  If it's not in the Activestate
> repository, you can install it using Dave Roth's PPM repository.
> 
> PPM> set repository dave http://www.roth.net/perl/packages
> PPM> set save
> PPM> install win32-service
> 
> For Win32::Lanman (and many other useful modules), use Jenda's repository:
> http://jenda.krynicky.cz/perl
> 
> 
> -----Original Message-
> From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 11:50 AM
> To: 'Perl Beginners'
> Subject: RE: Window Services - stop/start (Newbie)...
> 
> 
> Hi,
> 
> I just tried to install both modules (Win32::Service & Win32::Lanman). Get
> the message that I am using the wrong build of Perl. Both files were
> downloaded from CPAN. 
> 
> Didn't see a make.pl file, but did see an install.pl file. Ran that file
> and
> get the error message above. Do I need to create a make.pl file to install
> the module?
> 
> Or am I missing something very simple?
> 
> I am using ActiveState Perl 5.6.1 Build 633. I copied this from the
> command
> prompt...using Windows NT 4.0.
> 
> **
> **
> ***
> E:\>perl -v
> 
> This is perl, v5.6.1 built for MSWin32-x86-multi-thread
> (with 1 registered patch, see perl -V for more detail)
> 
> Copyright 1987-2001, Larry Wall
> 
> Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
> Built 21:33:05 Jun 17 2002
> 
> 
> Perl may be copied only under the terms of either the Artistic License or
> the
> GNU General Public License, which may be found in the Perl 5 source kit.
> 
> Complete documentation for Perl, including FAQ lists, should be found on
> this system using `man perl' or `perldoc perl'.  If you have access to the
> Internet, point your browser at http://www.perl.com/, the Perl Home Page.
> **
> **
> ***
> Thanks.
> 
> Alex
> 
> 
> > --
> > From:   Timothy Johnson[SMTP:[EMAIL PROTECTED]]
> > Sent:   Tuesday, September 10, 2002 4:34 PM
> > To: 'Yuen, Alex'; 'Perl Beginners'
> > Subject:RE: Window Services - stop/start (Newbie)...
> > 
> > 
> > Check out Win32::Service or Win32::Lanman.  Lanman is a whole lot to
> chew,
> > but it can do just about anything involving remote administration of
> > NT/2000/XP machines.
> > 
> > -Original Message-
> > From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
> > Sent: Tuesday, September 10, 2002 1:33 PM
> > To: 'Perl Beginners'
> > Subject: Window Services - stop/start (Newbie)...
> > 
> > 
> > Hi,
> > 
> > Does anyone know if Perl can stop or start a Service in Windows NT or
> > 2000?
> > 
> > Trying to write a script to stop the Service of an application, archive
> > the
> > log files and then restart the Service. Plus, record this transaction to
> a
> > seperate log file. Another plus, send out an e-mail notification if an
> > error
> > were to occur in any step of the Perl script.
> > 
> > Haven't decided to attach the log to the e-mail or not. But would be
> using
> > Mime::Lite for this.
> > 
> > Thanks.
> > 
> > Alex
> > 
> > -- 
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Window Services - stop/start (Newbie)...

[Timothy Johnson]

It looks like you might want to do a full uninstall/reinstall of ActivePerl
and see if that clears it up.

-Original Message-
From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 1:33 PM
To: 'Perl Beginners'; 'Timothy Johnson'
Subject: RE: Window Services - stop/start (Newbie)...


Tim, 

Thanks for this information.

I managed to install Win32::Lanman using PPM. But I still got an error
message installing Win32::Service. I'm going to see how difficult Lanman is
before racking my head with Win32::Service. 

But here is the error I got if anyone is interested. :)

*
E:\>ppm
PPM interactive shell (2.1.6) - type 'help' for available commands.
PPM> set repository dave http://www.roth.net/perl/packages
PPM> set save
PPM> install win32-service
Install package 'win32-service?' (y/N): y
Installing package 'win32-service'...
Error installing package 'win32-service': Read a PPD for 'win32-service',
but it is not intended for this build of Perl (MSWin32-x86-multi-thread)
PPM> quit
Quit!
*
Thanks.

Alex


> --
> From: Timothy Johnson[SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 4:13 PM
> To:   'Yuen, Alex'; 'Perl Beginners'
> Subject:  RE: Window Services - stop/start (Newbie)...
> 
> 
> Why don't you install it via PPM?  If it's not in the Activestate
> repository, you can install it using Dave Roth's PPM repository.
> 
> PPM> set repository dave http://www.roth.net/perl/packages
> PPM> set save
> PPM> install win32-service
> 
> For Win32::Lanman (and many other useful modules), use Jenda's repository:
> http://jenda.krynicky.cz/perl
> 
> 
> -Original Message-
> From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 12, 2002 11:50 AM
> To: 'Perl Beginners'
> Subject: RE: Window Services - stop/start (Newbie)...
> 
> 
> Hi,
> 
> I just tried to install both modules (Win32::Service & Win32::Lanman). Get
> the message that I am using the wrong build of Perl. Both files were
> downloaded from CPAN. 
> 
> Didn't see a make.pl file, but did see an install.pl file. Ran that file
> and
> get the error message above. Do I need to create a make.pl file to install
> the module?
> 
> Or am I missing something very simple?
> 
> I am using ActiveState Perl 5.6.1 Build 633. I copied this from the
> command
> prompt...using Windows NT 4.0.
> 
> **
> **
> ***
> E:\>perl -v
> 
> This is perl, v5.6.1 built for MSWin32-x86-multi-thread
> (with 1 registered patch, see perl -V for more detail)
> 
> Copyright 1987-2001, Larry Wall
> 
> Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
> Built 21:33:05 Jun 17 2002
> 
> 
> Perl may be copied only under the terms of either the Artistic License or
> the
> GNU General Public License, which may be found in the Perl 5 source kit.
> 
> Complete documentation for Perl, including FAQ lists, should be found on
> this system using `man perl' or `perldoc perl'.  If you have access to the
> Internet, point your browser at http://www.perl.com/, the Perl Home Page.
> **
> **
> ***
> Thanks.
> 
> Alex
> 
> 
> > --
> > From:   Timothy Johnson[SMTP:[EMAIL PROTECTED]]
> > Sent:   Tuesday, September 10, 2002 4:34 PM
> > To: 'Yuen, Alex'; 'Perl Beginners'
> > Subject:RE: Window Services - stop/start (Newbie)...
> > 
> > 
> > Check out Win32::Service or Win32::Lanman.  Lanman is a whole lot to
> chew,
> > but it can do just about anything involving remote administration of
> > NT/2000/XP machines.
> > 
> > -Original Message-
> > From: Yuen, Alex [mailto:[EMAIL PROTECTED]]
> > Sent: Tuesday, September 10, 2002 1:33 PM
> > To: 'Perl Beginners'
> > Subject: Window Services - stop/start (Newbie)...
> > 
> > 
> > Hi,
> > 
> > Does anyone know if Perl can stop or start a Service in Windows NT or
> > 2000?
> > 
> > Trying to write a script to stop the Service of an application, archive
> > the
> > log files and then restart the Service. Plus, record this transaction to
> a
> > seperate log file. Another plus, send out an e-mail notification if an
> > error
> > were to occur in any step of the Perl script.
> > 
> > Haven't decided to attach the log to the e-mail or not. But would be
> using
> > Mime::Lite for this.
> > 
> > Thanks.
> > 
> > Alex
> > 
> > -- 
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Best way to stop array interpolation.

[Bakken, Luke]

Here's a quickie:

I need to create a hash index out of a string that looks like this:

loans:a_foo[0]

If I build the index like this:

$rec->{"loans:a_$fld[$i]"} = $tmp{$fld} || '';

perl thinks that $fld[$i] is an array element, which it isn't.

Here are two solutions I found:

$rec->{"loans:a_$fld" . "[$i]"} = $tmp{$fld} || '';
$rec->{"loans:a_$fld\[$i]"} = $tmp{$fld} || '';

Are there any other ways? Just curious.
Luke

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Find regex in Start/Stop segments

[Harry Putnam]

I use a homeboy data base technique to keep info about the scripts I
write and other typse of stuff too.  Here I'm just dealing with
scripts.

Its a simple format to enter key information about what a script
does.  Looks like:

# Keywords: SOME WORDS
# body
# body
# DATE
# &&

I've written various scripts to search this format in awk and shell.
Now trying it in perl.  I have several working scripts but wanted to
get some ideas from the sharp shooters here how to do this better.

My technique seems like it could be streamlined and improved quite a
lot.

The sample below just handles the basic technique and isn't completed
with all tests and etc.  Just some basic ones. But really I'm more
interested in hearing better ways to accomplish this.

The basic task is to locate a formated segment, search its keywords
line for regex then print the segment.  Also a basic check for
misformatted segments.

Not too concerned with how the files are aquired but what comes after.
^^
#!/usr/local/bin/perl -w

($myscript = $0) =~ s:^.*/::; 
$regex = shift;
## Set Keywords start end regex for non script searching (The default)
$keyreg = '^# Keywords:';
$keyend = '^# &&$';

if (!$ARGV[0]) {
  usage();
  exit;
}
## Aquire there files in whatever way
@files = @ARGV;

## Set a marker to know when we are in a new file
$fname_for_line_cnt = '';
for (@files) { 
  chomp;
  $file = $_;
  if ("$fname_for_line_cnt" eq "$file") {
   ## This shouldn't happen
print "We're reading the same file again .. exiting\n";
exit;
  } else {
## Set lineno to 0 for start of each file
$lineno = 0;
$fname_for_line_cnt = $file;
  }

  if (-f $file) {
open(FH,"<$file") or die "Cannot open $file: $!";
while () {
  chomp;
  $lineno++;
  $line = $_;
  if (/$keyreg $regex/) {
print "$file\n";
$hit = "TRUE";
  }
  if ($hit) {
print "$lineno $line\n";
  }
  if ($hit && /$keyend/) {
  ## We've hit the end of a good segment, print delimiter and null out our vars
print "-- \n";
$hit= '';
$line   = '';
  }
  if ($hit && /^[^#]/ || $hit && eof) {
## If we see this situation it means the format is screwed up
## Notify user of the line number, but null out vars and proceed. 
print  "$file:\n   INCOMPLETE SEGMENT ENTRY: Line <$lineno>\n --\n";
$hit= '';
$line   = '';
  }
}
close(FH);
  } else {
next;
  }
}
sub usage {
  print<

Please Stop (was: Re: eval problem)

[Zander Collier]

With all due respect, if you're going to discuss the minutae,
nuances, and other "advanced" Perl stuff, could you please do
so on another list?

This is [EMAIL PROTECTED]

Publicly arguing this sort of thing on this list, at least to
me, makes it more intimidating to post what will be my silly
neophyte questions.  I say this because of the recent banter
that has been going (and this particular thread isn't the only
example), I conclude that I will not be told the simplest way
to solve my problem and as such, I won't be improving my
fundamental Perl skills.

I will be told of the most difficult way to do such.  I will
not be able to implement it, and will likely grow even more
frustrated with my problem rather than having received some
courteous help in having it solved, and then moving on.

I joined this list to read what other beginners are doing,
how and what they're learning, and how they're moving on.  I
joined in the hope that one day I can get to the point where
I can help others.

Here's the two problems *I* perceive:

- Too many complicated and complex answers to what are simple
questions.

- A tad to much eagerness to interject one's personal "Perl
brilliance" to the mailing list.

Please remember the best way to impress us n0oBs is to answer
our simple questions simply.  If you are advanced, and are
on this list helping us n0oBs out, please don't be defensive
reading this.  Please consider that someone, who calls himself
a "beginner" is finding this to be a mailing list whose content
(much advanced stuff) doesn't match with the title
([EMAIL PROTECTED]).  Please also consider that I'm probably
not the only n0oB dissatisfied with the list.

You could also say "Don't like it?  Leave."

True.  However, I am trying to help fix what I perceive to be a
problem, instead of leaving.  If nothing changes, I will.


Thank you for your time and consideration,
-Zander


At 11:37 AM 10/2/2001 -0800, Michael Fowler wrote:
>> One of the problems with prototypes is that they are not prototypes, at
>> least not in the sense that other programming languages use them. 
>
>I am aware of this "problem", which, personally, I don't consider a problem,
>because it is documented fairly clearly.
>
>
>> Instead, they allow us, amongt other things, to force function arguments
>> into a particular context.  In your example, the first argument *doesn't*
>> have to have a scalar value.
>
>I wasn't using the prototype to check the parameters, I was using it to ease
>the use of the function.  Without the prototype the function would have to
>be called thusly:
>
>append_and_print(\$stuff_to_print, "hi", " there\n");
>
>The prototype serves simply to enreference $stuff_to_print, so it doesn't
>have to be enreferenced by the programmer using it.  It was meant for
>nothing more.  With both solutions there is the possibility of passing a
>reference to another type of data.  The only solution, if this is considered
>a serious enough problem, is to check the parameters more thoroughly.  The
>code snippet I gave was but an example of one solution, it was not meant to
>be used without examination by the person using it.
>
>
>Michael
>--
>Administrator  www.shoebox.net
>Programmer, System Administrator   www.gallanttech.com
>--
>
>-- 
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Please Stop (Was: environment variables in perl)

[Shawn H Corey]

Could someone please remove lel...@claimspages.com from the mailing list 
so I won't get any more of these annoying messages?




 Original Message 
Subject: Re: Re: environment variables in perl
Date: Mon, 18 Jul 2011 09:31:05 -0400
From: RightFax E-mail Gateway
To: shawnhco...@gmail.com

Valid fax destination information could not be found
in your mail message.  The message was discarded.

Examples of properly formatted messages:

  /name=frank/fax=3217...@faxgate.company.com
  Frank Smith /name=frank/fax=3217453/ 

The original message information follows:

Received: from mx.npci.net ([10.0.1.60]) by mail.claimspages.com with
Microsoft SMTPSVC(5.0.2195.7381);
 Mon, 18 Jul 2011 09:30:33 -0400
Received: from localhost (unknown [127.0.0.1])
by mx.npci.net (Postfix) with ESMTP id 1DA252E46D7
for ; Mon, 18 Jul 2011 13:30:33 + (UTC)
X-Virus-Scanned: amavisd-new at nationwide.net, cpdev20.com, claimspages.com
Received: from mx.npci.net ([127.0.0.1])
by localhost (del-mx1.nationwide.net [127.0.0.1]) (amavisd-new, port
10024)
with ESMTP id MI6gJtK7KlS8 for ;
Mon, 18 Jul 2011 09:30:28 -0400 (EDT)
Received: from x6.develooper.com (x6.develooper.com [207.171.7.86])
by mx.npci.net (Postfix) with ESMTP id 39AAA2E4605
for ; Mon, 18 Jul 2011 09:30:28 -0400 (EDT)
Received: from lists-nntp.develooper.com (localhost.localdomain [127.0.0.1])
by x6.develooper.com (Postfix) with SMTP id 36BB117AFD
for ; Mon, 18 Jul 2011 06:30:27 -0700 (PDT)
Received: (qmail 9521 invoked by uid 514); 18 Jul 2011 13:29:50 -
Mailing-List: contact beginners-h...@perl.org; run by ezmlm
Precedence: bulk
List-Post: 
List-Help: 
List-Unsubscribe: 
List-Subscribe: 
List-Id: 
Delivered-To: mailing list beginners@perl.org
Received: (qmail 9512 invoked from network); 18 Jul 2011 13:29:50 -
Received: from x1.develooper.com (207.171.7.70)
  by x6.develooper.com with SMTP; 18 Jul 2011 13:29:50 -
Received: (qmail 26240 invoked by uid 225); 18 Jul 2011 13:29:50 -
Delivered-To: beginners@perl.org
Received: (qmail 26236 invoked by alias); 18 Jul 2011 13:29:49 -
X-Spam-Check-By: la.mx.develooper.com
Received: from mail-vw0-f41.google.com (HELO mail-vw0-f41.google.com)
(209.85.212.41)
by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Mon, 18 Jul 2011
06:29:44 -0700
Received: by vws4 with SMTP id 4so3098673vws.14
for ; Mon, 18 Jul 2011 06:29:40 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=gmail.com; s=gamma;

h=message-id:date:from:user-agent:mime-version:to:subject:references
 :in-reply-to:content-type:content-transfer-encoding;
bh=0oU4EoHhRGGQ+TFWKrCgE8L4pIxsgHBURGWQoZr08zo=;

b=vyA9wm2NsoAHFInyWqaAcgbA/r4ZD0qNVc+GISayCEfhqPXBJp/IYx3tPpPXUlbpzx

yqJvuwmYlTsvW79qzA/sJiX2RPz/hVElxvy8Ne7lxlIre/W3XiTcIrXOgTBpabZtpDlb
 7R+qlmo6qSEIK414Q5LVeoIm4WTVqceWJTxJo=
Received: by 10.52.174.113 with SMTP id br17mr2061178vdc.107.1310995780751;
Mon, 18 Jul 2011 06:29:40 -0700 (PDT)
Received: from [192.168.2.11] (bas3-ottawa10-1279403673.dsl.bell.ca 
[76.66.38.1

53])
by mx.google.com with ESMTPS id 
pm1sm1853114vcb.33.2011.07.18.06.29.39

(version=SSLv3 cipher=OTHER);
Mon, 18 Jul 2011 06:29:39 -0700 (PDT)
Message-ID: <4e243542.9060...@gmail.com>
Date: Mon, 18 Jul 2011 09:29:38 -0400
From: Shawn H Corey 
User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.18) 
Gecko/201106

17 Thunderbird/3.1.11
MIME-Version: 1.0
To: beginners@perl.org
Subject: Re: environment variables in perl
References: <1310988574.50369.yahoomail...@web125509.mail.ne1.yahoo.com>
<4e241ca7.2080...@gmail.com> 
In-Reply-To: 
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Return-Path: beginners-return-117932-lellis=claimspages@perl.org
X-OriginalArrivalTime: 18 Jul 2011 13:30:33.0204 (UTC) 
FILETIME=[DEA54340:01CC4

54E]

On 11-07-18 09:24 AM, Christian Walde wrote:

On Mon, 18 Jul 2011 13:44:39 +0200, Shawn H Corey
 wrote:


In Windows, there is only one environment. That means if a child
process changes it, its parent can access the change.

In Linux, each process has its own environment. The child process
inherits its parent's at the time of the fork and each is independent
thereafter.


That is most certainly not the case. On Windows %ENV behaves like it
does on Linux:

https://gist.github.com/899a1385b703bba7f552



OK, that makes things easier.  Use `perldoc perlipc` for both.


--
Just my 0.0002 million dollars worth,
   Shawn

Confusion is the first step of understanding.

Programming is as much about organization and communication
as it is about coding.

The secret to great software:  Fail early & often.

Eliminate software piracy:  use only FLOSS.

--
To unsubscribe, e-mail: beginners-unsubscr...@

RE: Best way to stop array interpolation.

[Bob Showalter]

Bakken, Luke wrote:
> Here's a quickie:
> 
> I need to create a hash index out of a string that looks like this:
> 
> loans:a_foo[0]
> 
> If I build the index like this:
> 
> $rec->{"loans:a_$fld[$i]"} = $tmp{$fld} || '';
> 
> perl thinks that $fld[$i] is an array element, which it isn't.
> 
> Here are two solutions I found:
> 
> $rec->{"loans:a_$fld" . "[$i]"} = $tmp{$fld} || '';
> $rec->{"loans:a_$fld\[$i]"} = $tmp{$fld} || '';
> 
> Are there any other ways? Just curious.

"loans:a_${fld}[$i]" also works. I like your second version above best.

$ perl -MO=Deparse,-q -e '"a_${fld}[$i]"'
'a_' . $fld . '[' . $i . ']';

$ perl -MO=Deparse,-q -e '"a_$fld\[$i]"'
'a_' . $fld . '[' . $i . ']';

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Best way to stop array interpolation.

[Bakken, Luke]

> > Here are two solutions I found:
> > 
> > $rec->{"loans:a_$fld" . "[$i]"} = $tmp{$fld} || '';
> > $rec->{"loans:a_$fld\[$i]"} = $tmp{$fld} || '';
> > 
> > Are there any other ways? Just curious.
> 
> "loans:a_${fld}[$i]" also works. I like your second version 
> above best.
> 
> $ perl -MO=Deparse,-q -e '"a_${fld}[$i]"'
> 'a_' . $fld . '[' . $i . ']';
> 
> $ perl -MO=Deparse,-q -e '"a_$fld\[$i]"'
> 'a_' . $fld . '[' . $i . ']';

Hmm you know that was the first thing I tried, but I always get this
error, indicating it's still looking for @fld:

I also have use strict on.

C:\tmp>perl testadr
Global symbol "@fld" requires explicit package name at testadr line 37.
Global symbol "@fld" requires explicit package name at testadr line 43.
BEGIN not safe after errors--compilation aborted at testadr line 48. 

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Best way to stop array interpolation.

[Bob Showalter]

Bakken, Luke wrote:
> > > Here are two solutions I found:
> > > 
> > > $rec->{"loans:a_$fld" . "[$i]"} = $tmp{$fld} || '';
> > > $rec->{"loans:a_$fld\[$i]"} = $tmp{$fld} || '';
> > > 
> > > Are there any other ways? Just curious.
> > 
> > "loans:a_${fld}[$i]" also works. I like your second version above
> > best. 
> > 
> > $ perl -MO=Deparse,-q -e '"a_${fld}[$i]"'
> > 'a_' . $fld . '[' . $i . ']';
> > 
> > $ perl -MO=Deparse,-q -e '"a_$fld\[$i]"'
> > 'a_' . $fld . '[' . $i . ']';
> 
> Hmm you know that was the first thing I tried, but I always get this
> error, indicating it's still looking for @fld:
> 
> I also have use strict on.
> 
> C:\tmp>perl testadr
> Global symbol "@fld" requires explicit package name at testadr line
> 37. Global symbol "@fld" requires explicit package name at testadr
> line 43. BEGIN not safe after errors--compilation aborted at testadr
> line 48. 

You're right. I guess what I wrote is a no-no.

Writing something like "${fld}foo" is like $fld . "foo"

But the opening square bracket seems to cause problems with strict turned
on. Maybe somebody smarter than me (shouldn't be hard to find!) can explain
further.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Find regex in Start/Stop segments

[Tassilo von Parseval]

On Tue, Jun 10, 2003 at 11:49:25PM -0700 Harry Putnam wrote:

> I use a homeboy data base technique to keep info about the scripts I
> write and other typse of stuff too.  Here I'm just dealing with
> scripts.
> 
> Its a simple format to enter key information about what a script
> does.  Looks like:
> 
> # Keywords: SOME WORDS
> # body
> # body
> # DATE
> # &&
> 
> I've written various scripts to search this format in awk and shell.
> Now trying it in perl.  I have several working scripts but wanted to
> get some ideas from the sharp shooters here how to do this better.
> 
> My technique seems like it could be streamlined and improved quite a
> lot.

Yes, it's a little wordy considering it's Perl.

> The sample below just handles the basic technique and isn't completed
> with all tests and etc.  Just some basic ones. But really I'm more
> interested in hearing better ways to accomplish this.
> 
> The basic task is to locate a formated segment, search its keywords
> line for regex then print the segment.  Also a basic check for
> misformatted segments.
> 
> Not too concerned with how the files are aquired but what comes after.
> ^^
> #!/usr/local/bin/perl -w
> 
> ($myscript = $0) =~ s:^.*/::; 

You are allowed to manipulate $0, too. The new value of $0 is the one
that is eventually showing up in your process-table (unless you are
using Perl5.8.0 where this does not work due to a bug).

> $regex = shift;
> ## Set Keywords start end regex for non script searching (The default)
> $keyreg = '^# Keywords:';
> $keyend = '^# &&$';
> 
> if (!$ARGV[0]) {
>   usage();
>   exit;
> }
> ## Aquire there files in whatever way
> @files = @ARGV;
> 
> ## Set a marker to know when we are in a new file
> $fname_for_line_cnt = '';
> for (@files) { 
>   chomp;

I don't think that the entries in @ARGV contain newlines at the end.
Actually I know they don't. :-)

>   $file = $_;
>   if ("$fname_for_line_cnt" eq "$file") {

There is no reason to put those variables into quotes.

>## This shouldn't happen
> print "We're reading the same file again .. exiting\n";
> exit;

That is better solved using a hash. Fill all the files into a hash (as
keys) and iterate over the keys. That way, it's guaranteed you only
inspect each file once.

>   } else {
> ## Set lineno to 0 for start of each file
> $lineno = 0;
> $fname_for_line_cnt = $file;
>   }
> 
>   if (-f $file) {
> open(FH,"<$file") or die "Cannot open $file: $!";
> while () {
>   chomp;
>   $lineno++;

You don't have to keep track of the line numbers yourself. Perl offers
the special variable $. for that.

>   $line = $_;
>   if (/$keyreg $regex/) {
> print "$file\n";
>   $hit = "TRUE";
>   }
>   if ($hit) {
>   print "$lineno $line\n";
>   }
>   if ($hit && /$keyend/) {
>   ## We've hit the end of a good segment, print delimiter and null
>   ## out our vars
>   print "-- \n";
>   $hit= '';
>   $line   = '';
>   }
>   if ($hit && /^[^#]/ || $hit && eof) {
> ## If we see this situation it means the format is screwed up
> ## Notify user of the line number, but null out vars and proceed. 
>   print  "$file:\n   INCOMPLETE SEGMENT ENTRY: Line <$lineno>\n --\n";
>   $hit= '';
>   $line   = '';
>   }
> }
> close(FH);
>   } else {
> next;
>   }
> }
> sub usage {
>   print< 
> Purpose: Search scripts keyword segments (or any file)
> Usage: \`$myscript "REGEX" file ... fileN (or glob)'
>   (Where REGEX is a regex to be found in Keyword segment) 
> 
> EOM
> }

I'd probably write it like that:

#!/usr/local/bin/perl -w
use strict;

$0 =~ s:.*/::;

my $regex = shift;
$regex = qr/^# Keywords: $regex/;   # could improve performance a little

my %files;
@files{ @ARGV } = ();   # a hash-slice: see 'perldoc perldata'

usage(), exit if ! @ARGV;

for my $file (keys %files) {
next if ! -f $file;
open FILE, "<", $file or die "Error opening $file: $!";

my $hit;
while () {
chomp;
$hit++ if /$regex/o;# start of record
print "$. $_\n" if $hit;# $. is the line number
$hit-- if /^# &&$/; # end of record
print "$file:\n\tINCOMPLETE SEGMENT ENTRY: Line <$l.>\n--\n"
and $hit--
if $hit && !/^#/ or $hit && eof;
}
}

sub usage {
...
}
   
I didn't test it but it should produce the same result as your script
and doing it considerably more quickly. Please substract any possible
syntax errors or logical flaws from the script before running it. ;-)

Tassilo
-- 
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'

Re: Find regex in Start/Stop segments

[Harry Putnam]

Tassilo von Parseval <[EMAIL PROTECTED]> writes:


> You don't have to keep track of the line numbers yourself. Perl offers
> the special variable $. for that.

An awkism I guess, hold over from awk use.
Thanks for the tips.

> I'd probably write it like that:

Quite a lot shorter... and to the point.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Find regex in Start/Stop segments

[John W. Krahn]

Tassilo Von Parseval wrote:
> 
> On Tue, Jun 10, 2003 at 11:49:25PM -0700 Harry Putnam wrote:
> >
> > ## Set a marker to know when we are in a new file
> > $fname_for_line_cnt = '';
> > for (@files) {
> >   chomp;
> 
> I don't think that the entries in @ARGV contain newlines at the end.
> Actually I know they don't. :-)

Well it could happen but you would really have to want it that way.

$ perl -le'for(@ARGV){print length; chomp; print length}' one 'two
' three
3
3
4
3
5
5

And of course, if you have a file name with an actual newline in it then
you don't want to remove it.  :-)


John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Find regex in Start/Stop segments

[R. Joseph Newton]

Tassilo von Parseval wrote:

> >   chomp;
>
> I don't think that the entries in @ARGV contain newlines at the end.
> Actually I know they don't. :-)
>

That's good.  and that is why chomp is an excellent choice for this context.
Because the OP may not know, or be sure of, that fact.  The chomp function is
custom-designed for cases of uncertainty,.and is perfectly safe in cases where
there is no tail-junk to remove.  Please don't discourage its use.

Joseph


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Find regex in Start/Stop segments

[Tassilo von Parseval]

On Fri, Jun 13, 2003 at 03:09:20PM -0700 R. Joseph Newton wrote:

> Tassilo von Parseval wrote:
> 
> > >   chomp;
> >
> > I don't think that the entries in @ARGV contain newlines at the end.
> > Actually I know they don't. :-)
> >
> 
> That's good.  and that is why chomp is an excellent choice for this context.
> Because the OP may not know, or be sure of, that fact.  The chomp function is
> custom-designed for cases of uncertainty,.and is perfectly safe in cases where
> there is no tail-junk to remove.  Please don't discourage its use.

I was not discouraging its use. I was rather pointing out that @ARGV
does (usually) not contain trailing newlines. chomp() should be used
when - conceptually - there could be something to remove. In case of
filenames however you either don't have anything to remove or you don't
want to remove it. That way this chomp() could even be wrong (as John
remarked in his follow-up).

Tassilo
-- 
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~;eval


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Find regex in Start/Stop segments

[Harry Putnam]

Tassilo von Parseval <[EMAIL PROTECTED]> writes:

>> That's good.  and that is why chomp is an excellent choice for this
>> context.  Because the OP may not know, or be sure of, that fact.
>> The chomp function is custom-designed for cases of uncertainty,.and
>> is perfectly safe in cases where there is no tail-junk to remove.
>> Please don't discourage its use.

> I was not discouraging its use. I was rather pointing out that @ARGV
> does (usually) not contain trailing newlines. chomp() should be used
> when - conceptually - there could be something to remove. In case of
> filenames however you either don't have anything to remove or you
> don't want to remove it. That way this chomp() could even be wrong
> (as John remarked in his follow-up).

I'm the OP,  so for clarity here:  Why chomp? Well, it was really a
typo.  It was supposed to say `chop'.

During the night some homeless guy slipped in and created a bunch of
filenames with control chars in them, like this.

`Harry is a jerk^MHarry is a saint'

So you can see why `chop' was called for.  I need to learn to type
better... hehe.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

How to stop mails from beginners@perl.org

[Nigel Wetters]

Some people have obviously lost the first email they received from this list, so 
here's a recap.

To unsubscribe to the list, you need to send an email to a special email address that 
is formed partly from YOUR OWN email address. For example, if your email address is 
[EMAIL PROTECTED], you should send an email to 
[EMAIL PROTECTED] - if your email address is 
[EMAIL PROTECTED], you should send an email 
[EMAIL PROTECTED] .

Simple, yes?

--nigel




This e-mail and any files transmitted with it are confidential 
and solely for the use of the intended recipient. 
ONdigital plc, 346 Queenstown Road, London SW8 4DG. Reg No: 3302715. 

Re: Please Stop (was: Re: eval problem)

[Brett W. McCoy]

On Wed, 3 Oct 2001, Zander Collier wrote:

> With all due respect, if you're going to discuss the minutae,
> nuances, and other "advanced" Perl stuff, could you please do
> so on another list?

I'm inclined to agree... however, I think it is helpful for beginners also
to be amongst more advanced conversation to get a better feel for the
language, even if they can't follow a lot of it, without being stuck on
one of the really advanced lists (like perl-porters or perl-friends).
While the simplest answer is usually the best one (Occam's razor), delving
into deeper or more rigorous solutions can never hurt, and the chance that
something really cool that can be used in a programmer's toolbox may come
about.  I have found, being neither a beginner nor an expert like some of
the other people on this list, that I can follow the advanced discussions
here more easily than I can on the hardcore Perl lists -- the advanced
folks here seem to have a better knack at explaining things, which, I
guess, is one of the reasons they are on this list -- they like to explain
complex topics to make them understandable to those seeking understanding.

-- Brett
  http://www.chapelperilous.net/

Oh, yeah, life goes on, long after the thrill of livin' is gone.
-- John Cougar, "Jack and Diane"


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Please Stop (was: Re: eval problem)

[Peter Scott]

At 05:56 PM 10/2/01 -0400, Brett W. McCoy wrote:
>On Wed, 3 Oct 2001, Zander Collier wrote:
>
> > With all due respect, if you're going to discuss the minutae,
> > nuances, and other "advanced" Perl stuff, could you please do
> > so on another list?
>
>I'm inclined to agree... however, I think it is helpful for beginners also
>to be amongst more advanced conversation to get a better feel for the
>language, even if they can't follow a lot of it, without being stuck on
>one of the really advanced lists (like perl-porters or perl-friends).

While this is true, it's seldom clear to the beginner when this list has 
diverted to esoterica.  It's *critical* for a beginner to know what they 
*don't* need to pay attention to at the beginning, and we do them a 
disservice by commingling easy and not-so-easy stuff.

So I'd back Zander, and ask people who want to get into advanced stuff to 
take it somewhere like comp.lang.perl.{misc,moderated}.  There are plenty 
of places for intermediate or advanced talk, but precious few for the beginner.
--
Peter Scott
Pacific Systems Design Technologies
http://www.perldebugged.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Please Stop (was: Re: eval problem)

[Curtis Poe]

--- Zander Collier <[EMAIL PROTECTED]> wrote:
> With all due respect, if you're going to discuss the minutae,
> nuances, and other "advanced" Perl stuff, could you please do
> so on another list?
> 
> This is [EMAIL PROTECTED]

Mea Culpa.

While I do have some reservations about how prototypes were used in a particular 
example, I'll try
to be more sensitive about the "beginners" aspect of things.

Cheers,
Curtis "Ovid" Poe

=
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/

__
Do You Yahoo!?
Listen to your Yahoo! Mail messages from any phone.
http://phone.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Please Stop (was: Re: eval problem)

[Michael Kelly]

> While this is true, it's seldom clear to the beginner when this list has
> diverted to esoterica.  It's *critical* for a beginner to know what they
> *don't* need to pay attention to at the beginning, and we do them a
> disservice by commingling easy and not-so-easy stuff.
> 
> So I'd back Zander, and ask people who want to get into advanced stuff to
> take it somewhere like comp.lang.perl.{misc,moderated}.  There are plenty
> of places for intermediate or advanced talk, but precious few for the
> beginner.

Well, being somewhat of a beginner myself, I think it is very helpful to
look at stuff that's above your head. I certainly don't mind the fact that
80% of the stuff on this list is above me, and I think that, when I do start
dealing with some of the more advanced stuff, I'll have had a little
introduction to it here ("Oh yeah, I remember so-and-so mentioned that...").

Overall, I think it's beneficial to see stuff that's above your head, no
matter what level you're at, as long as it's made clear that total beginners
can can ask simple questions and not be flamed for it.

Before we try to rid ourselves of advanced topics, I think we should simply
try to answer beginners' questions more clearly and nicely. (Less of the
"just use this regex instead: m/^(?:[a-f\d])*?\.+?[^\d\w]?\d+\s\w+?\s/ig" or
"it already TOLD you to do that and you apparently didn't pay any attention"
type of stuff.)

Well, that's my $0.02.

> --
> Peter Scott
> Pacific Systems Design Technologies
> http://www.perldebugged.com

-Michael Kelly
Email: [EMAIL PROTECTED]
The Web: http://jedimike.hypermart.net 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Please Stop (was: Re: eval problem)

[Mel Matsuoka]

At 03:23 PM 10/02/2001 -0700, Michael Kelly wrote:
>Well, being somewhat of a beginner myself, I think it is very helpful to
>look at stuff that's above your head. I certainly don't mind the fact that
>80% of the stuff on this list is above me, and I think that, when I do start
>dealing with some of the more advanced stuff, I'll have had a little
>introduction to it here ("Oh yeah, I remember so-and-so mentioned that...").
>
>Overall, I think it's beneficial to see stuff that's above your head, no
>matter what level you're at, as long as it's made clear that total beginners
>can can ask simple questions and not be flamed for it.

I definitely agree with you, Michael. It's kind of like any activity, such
as basketball or tennis. If you force yourself to watch and play with
people who are much more advanced than you, you'll naturally end up getting
better by osmosis. Although a lot of the Perl discussion that goes on in
c.l.p.m. goes "over my head", I'll end up digging that discussion out of my
memory banks (and dejanews) the next time I have a Perl problem, simply by
virtue of having seen such a discussion take place.  

Of course that being said, I suppose is it out of the charter of this
mailing list to exercise ones advanced Perl muscle needlessly. I can
understand that it does more harm than good to show a newbie some cool and
efficient--yet obfuscated--method of getting a simple task done, when said
newbie is still in the stages of learning the core language and
methodologies first. I can imagine this is why many people are turned off
by Perl because they see a lot of compact, "read only" code written by
experienced Perl jockeys :)

Just my $.02...Aloha,
mel
--
mel matsuoka  Hawaiian Image Productions
Chief Executive Alphageek(vox)1.808.531.5474
[EMAIL PROTECTED](fax)1.808.526.4040
 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Please Stop (was: Re: eval problem)

[RoadRaat]

In a message dated Tue, 2 Oct 2001  6:03:06 PM Eastern Daylight Time, Curtis Poe 
<[EMAIL PROTECTED]> writes:

> Mea Culpa.
> 
> While I do have some reservations about how prototypes were used in a particular 
>example, I'll try
> to be more sensitive about the "beginners" aspect of things.

Curtis,

That's considerate of you to respond humbly.  Personally, even when the responses are 
over my head, I still appreciate them.  Thanks for putting so much energy into your 
posting.

If any post is beyond my current understanding, I either:
1. Learn something
2. Learn about the existence of something I want to learn later.  Or...
3. Delete it!

Personally, I don't want to put a lid on any discussion.  I think the characteristic 
which distinguishes this list as a beginners' list is not the level of the *response*, 
but rather the willingness of the respondants to address any *question*.

Thanks,
Nelson

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Please Stop (was: Re: eval problem)

[Michael D. Risser]

--SNIP--
> Personally, I don't want to put a lid on any discussion.  I think the
> characteristic which distinguishes this list as a beginners' list is not
> the level of the *response*, but rather the willingness of the respondants
> to address any *question*.
>
> Thanks,
> Nelson

And to do so in a friendly, non-demeaning manner :-)

-- 
Michael D. Risser
Software Engineer
=
Machine Vision Products, Inc.
www.visionpro.com
[EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

how to stop RPC::XML::Server blocking

[Robin Sheat]

Hi, I have a small XML-RPC server I wrote using the RPC::XML::Server module, 
however I found that if a single task given to it takes some time, then it 
prevents any more requests from happening. I'd like to have each task started 
in its own thread (preferably with the ability to specify an upper limit, 
after which it blocks to stop it getting hammered with thread creation).

Is there a nice way to do this without writing my own RPC::XML::Server 
replacement?

Cheers, Robin.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: How to stop mails from beginners@perl.org

[Randal L. Schwartz]

> "Nigel" == Nigel Wetters <[EMAIL PROTECTED]> writes:

Nigel> Some people have obviously lost the first email they received
Nigel> from this list, so here's a recap.

Nigel> To unsubscribe to the list, you need to send an email to a
Nigel> special email address that is formed partly from YOUR OWN email
Nigel> address. For example, if your email address is
Nigel> [EMAIL PROTECTED], you should send an email to
Nigel> [EMAIL PROTECTED] - if your
Nigel> email address is [EMAIL PROTECTED], you should send an email
Nigel> [EMAIL PROTECTED] .

Nigel> Simple, yes?

No, it's even simpler.  Just send to

[EMAIL PROTECTED]

from your own address.  If *that* doesn't work, it tells you
what to do next.

And *that* is in the *header* of *every* message sent by the mailhandler.
It's hard to lose that. :)

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

Re: how to stop RPC::XML::Server blocking

[Todd W]

"Robin Sheat" <[EMAIL PROTECTED]> wrote in message 
news:[EMAIL PROTECTED]
> Hi, I have a small XML-RPC server I wrote using the RPC::XML::Server 
> module,
> however I found that if a single task given to it takes some time, then it
> prevents any more requests from happening. I'd like to have each task 
> started
> in its own thread (preferably with the ability to specify an upper limit,
> after which it blocks to stop it getting hammered with thread creation).
>
> Is there a nice way to do this without writing my own RPC::XML::Server
> replacement?

Sure. Just run your server in a mod_perl enabled apache:

http://search.cpan.org/~rjray/RPC-XML-0.59/lib/Apache/RPC/Server.pm

Todd W.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Extract substring from offset to space or full stop

[Mimi Cafe]

I used MySQL substr function to extra 100 characters from the result of a
query, but understandably, I don't get what I want.

 

Now I looked at Perl's substr function and it doesn't look like it can help
me achieve what I need to.

 

Let's say I have:

 

$s = "The black cat climbed the green tree";

$substring = substr( $s, 1, 15); # this will return "The black cat c".

 

How can I have this return the whole word climbed rather than the c (i.e. I
need to get "The black cat climbed")? I need to get the remaining characters
from the length till the next white space or end of a phrase.

 

Any other way to overcome this limitation?  How can I use regex here?

 

 

 

Extract substring from offset to space or full stop

[Mimi Cafe]

It is a bit tricky. Just tried it and Perl warned:

The string is: The black cat is.
Can't do {n,m} with n > m in regex; marked by <-- HERE in m/ \A ( .{19,18}
<-- HERE ?\s+ \b ) / at substr.pl line 10.


My strings are not fixed length, but I do they are normally longer that the
offset I used, so I should be fine I think.

Mimi



-Original Message-
From: John W. Krahn [mailto:jwkr...@shaw.ca] 
Sent: 18 April 2010 17:03
To: Perl Beginners
Subject: Re: Extract substring from offset to space or full stop

Mimi Cafe wrote:
> I used MySQL substr function to extra 100 characters from the result of a
> query, but understandably, I don't get what I want.
> 
> Now I looked at Perl's substr function and it doesn't look like it can
help
> me achieve what I need to.
> 
> Let's say I have:
> 
> $s = "The black cat climbed the green tree";
> 
> $substring = substr( $s, 1, 15); # this will return "The black cat c".

No it will not.  It will return "he black cat cl" because in perl 
offsets start at 0 and not 1:

$ perl -le'
my $s = "The black cat climbed the green tree";
my $substring = substr( $s, 1, 15 );
print $substring;
'
he black cat cl


> How can I have this return the whole word climbed rather than the c (i.e.
I
> need to get "The black cat climbed")? I need to get the remaining
characters
> from the length till the next white space or end of a phrase.
> 
> Any other way to overcome this limitation?  How can I use regex here?

$ perl -le'
my $s = "The black cat climbed the green tree";
my $length = length $s;
my ( $substring ) = $s =~ / \A ( .{15,$length}? \b ) /x;
print $substring;
'
The black cat climbed




John
-- 
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity.   -- Damian Conway

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/




-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

STOP THREAD ! Can't locate object method "new" via package

[test testname]

THANK YOU !!! THAT´s IT !
Jose is right.
My editor changed the text I filled in...
Sorry for nerving with such easy stuff! 
Best regards
posty






Mit schönen Grüßen von Yahoo! Mail - http://mail.yahoo.de

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Extract substring from offset to space or full stop

[Akhthar Parvez K]

Hi Mimi,

> How can I have this return the whole word climbed rather than the c (i.e. I
> need to get "The black cat climbed")? I need to get the remaining characters
> from the length till the next white space or end of a phrase.
> Any other way to overcome this limitation?  How can I use regex here?

This might work for you I guess:


#!/usr/bin/perl
$s = "The black cat climbed the green tree";
$count = 50;
$s =~ /(^[\S\s]{1,$count}\S*)(\s.*|$)/;
print "$1\n";


when $count is 30, it prints:
The black cat climbed the green

when $count is 50, it prints:
The black cat climbed the green tree

My knowledge in Perl is limited, so there may be a more apt solution in your 
case.

Regards,
Akhthar Parvez K
http://Tips.SysAdminGUIDE.COM
UNIX is basically a simple operating system, but you have to be a genius to 
understand the simplicity - Dennie Richie
On Sunday 18 Apr 2010, Mimi Cafe wrote:
> I used MySQL substr function to extra 100 characters from the result of a
> query, but understandably, I don't get what I want.
> 
>  
> 
> Now I looked at Perl's substr function and it doesn't look like it can help
> me achieve what I need to.
> 
>  
> 
> Let's say I have:
> 
>  
> 
> $s = "The black cat climbed the green tree";
> 
> $substring = substr( $s, 1, 15); # this will return "The black cat c".
> 
> 
>  
> 
>  
> 
>  
> 
> 



-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[Shawn H Corey]

Mimi Cafe wrote:

$s = "The black cat climbed the green tree";

$substring = substr( $s, 1, 15); # this will return "The black cat c".

 


How can I have this return the whole word climbed rather than the c (i.e. I
need to get "The black cat climbed")? I need to get the remaining characters
from the length till the next white space or end of a phrase.


#!/usr/bin/perl

use strict;
use warnings;

my $str = "The black cat climbed the green tree";
print "string: $str\n";

$str =~ m{ \A ( .{15} .*? ) \s }msx;
my $extracted = $1;
print "extracted: $extracted\n";

__END__



--
Just my 0.0002 million dollars worth,
  Shawn

Programming is as much about organization and communication
as it is about coding.

I like Perl; it's the only language where you can bless your
thingy.

Eliminate software piracy:  use only FLOSS.

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[Akhthar Parvez K]

Hi Shawn,

> $str =~ m{ \A ( .{15} .*? ) \s }msx;

I don't think this would work if the value given in the match string (15 as per 
above eg.) is greater than the character count of the particular string. Right?

Regards,
Akhthar Parvez K
http://Tips.SysAdminGUIDE.COM
UNIX is basically a simple operating system, but you have to be a genius to 
understand the simplicity - Dennie Richie

On Sunday 18 Apr 2010, Shawn H Corey wrote:
> #!/usr/bin/perl
> 
> use strict;
> use warnings;
> 
> my $str = "The black cat climbed the green tree";
> print "string: $str\n";
> 
> my $extracted = $1;
> print "extracted: $extracted\n";



-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

RE: Extract substring from offset to space or full stop

[Mimi Cafe]

Hi,

It works fine and I like it. My regex is not that good, but I can see what
is doing. I modified it a bit (to capture up till a full stop sign).


#!/usr/bin/perl
#
use strict;
use warnings;
#
my $str = "The black cat is trying to climbed the green tree. This time it
failed."; print "string: $str\n";
my $sbstr = substr $str, 0,17;
print "The substr function with length 17 will capture: $sbstr\n";
$str =~ m{ \A ( .{17} .*?\. ) \s }msx;
my $extracted = $1;
print "The pattern with quantifier set 17, extracted: $extracted\n"; 



Outputs:

string: The black cat is trying to climbed the green tree. This time it
failed.
The substr function with length 17 will capture: The black cat is
The pattern with quantifier set 17, extracted: The black cat is trying to
climbed the green tree.


Cool





-Original Message-
From: Akhthar Parvez K [mailto:akht...@sysadminguide.com] 
Sent: 18 April 2010 15:45
To: beginners@perl.org
Subject: Re: Extract substring from offset to space or full stop

Hi Shawn,

> $str =~ m{ \A ( .{15} .*? ) \s }msx;

I don't think this would work if the value given in the match string (15 as
per above eg.) is greater than the character count of the particular string.
Right?

Regards,
Akhthar Parvez K
http://Tips.SysAdminGUIDE.COM
UNIX is basically a simple operating system, but you have to be a genius to
understand the simplicity - Dennie Richie

On Sunday 18 Apr 2010, Shawn H Corey wrote:
> #!/usr/bin/perl
> 
> use strict;
> use warnings;
> 
> my $str = "The black cat climbed the green tree";
> print "string: $str\n";
> 
> my $extracted = $1;
> print "extracted: $extracted\n";



-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/




-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[Akhthar Parvez K]

Hi,

> It works fine and I like it. My regex is not that good, but I can see what
> is doing. I modified it a bit (to capture up till a full stop sign).

Kewl. Good to hear that!

Regards,
Akhthar Parvez K
http://Tips.SysAdminGUIDE.COM
UNIX is basically a simple operating system, but you have to be a genius to 
understand the simplicity - Dennie Richie

On Sunday 18 Apr 2010, Mimi Cafe wrote:
> Hi,
> 
> 
> 
> #!/usr/bin/perl
> #
> use strict;
> use warnings;
> #
> my $str = "The black cat is trying to climbed the green tree. This time it
> failed."; print "string: $str\n";
> my $sbstr = substr $str, 0,17;
> print "The substr function with length 17 will capture: $sbstr\n";
> $str =~ m{ \A ( .{17} .*?\. ) \s }msx;
> my $extracted = $1;
> print "The pattern with quantifier set 17, extracted: $extracted\n"; 
> 
> 
> 
> Outputs:
> 
> string: The black cat is trying to climbed the green tree. This time it
> failed.
> The substr function with length 17 will capture: The black cat is
> The pattern with quantifier set 17, extracted: The black cat is trying to
> climbed the green tree.
> 
> 
> Cool
> 
> 
> 
> 
> 

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[Shawn H Corey]

Akhthar Parvez K wrote:

Hi Shawn,


$str =~ m{ \A ( .{15} .*? ) \s }msx;


I don't think this would work if the value given in the match string (15 as per 
above eg.) is greater than the character count of the particular string. Right?


No, it will fail if $str is less than 15 characters.  Try:

#!/usr/bin/perl

use strict;
use warnings;

for my $str ( "The black cat climbed the green tree", 'A test' ){
  my $extracted = extract( $str );
  print "string: $str\n";
  print "string: $extracted\n";
}

sub extract {
  my $str = shift @_;

  $str =~ m{ \A ( .{0,15} .*? ) \s }msx;
  my $extracted = $1;

  return $extracted;
}

__END__

--
Just my 0.0002 million dollars worth,
  Shawn

Programming is as much about organization and communication
as it is about coding.

I like Perl; it's the only language where you can bless your
thingy.

Eliminate software piracy:  use only FLOSS.

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[John W. Krahn]

Mimi Cafe wrote:

I used MySQL substr function to extra 100 characters from the result of a
query, but understandably, I don't get what I want.

Now I looked at Perl's substr function and it doesn't look like it can help
me achieve what I need to.

Let's say I have:

$s = "The black cat climbed the green tree";

$substring = substr( $s, 1, 15); # this will return "The black cat c".


No it will not.  It will return "he black cat cl" because in perl 
offsets start at 0 and not 1:


$ perl -le'
my $s = "The black cat climbed the green tree";
my $substring = substr( $s, 1, 15 );
print $substring;
'
he black cat cl



How can I have this return the whole word climbed rather than the c (i.e. I
need to get "The black cat climbed")? I need to get the remaining characters
from the length till the next white space or end of a phrase.

Any other way to overcome this limitation?  How can I use regex here?


$ perl -le'
my $s = "The black cat climbed the green tree";
my $length = length $s;
my ( $substring ) = $s =~ / \A ( .{15,$length}? \b ) /x;
print $substring;
'
The black cat climbed




John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity.   -- Damian Conway

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[John W. Krahn]

Mimi Cafe wrote:


From: John W. Krahn [mailto:jwkr...@shaw.ca] 


Mimi Cafe wrote:

I used MySQL substr function to extra 100 characters from the result of a
query, but understandably, I don't get what I want.

Now I looked at Perl's substr function and it doesn't look like it can
help me achieve what I need to.

Let's say I have:

$s = "The black cat climbed the green tree";

How can I have this return the whole word climbed rather than the c (i.e.
I need to get "The black cat climbed")? I need to get the remaining
characters from the length till the next white space or end of a phrase.

Any other way to overcome this limitation?  How can I use regex here?


$ perl -le'
my $s = "The black cat climbed the green tree";
my $length = length $s;
my ( $substring ) = $s =~ / \A ( .{15,$length}? \b ) /x;
print $substring;
'
The black cat climbed


It is a bit tricky. Just tried it and Perl warned:

The string is: The black cat is.
Can't do {n,m} with n > m in regex; marked by <-- HERE in m/ \A ( .{19,18}
<-- HERE ?\s+ \b ) / at substr.pl line 10.

My strings are not fixed length, but I do they are normally longer that the
offset I used, so I should be fine I think.


$ perl -le'
my $s = "The black cat climbed the green tree";
my $end = length $s;
my $start = $end < 15 ? $end : 15;
my ( $substring ) = $s =~ / \A ( .{$start,$end}? \b ) /x;
print $substring;
'
The black cat climbed




John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity.   -- Damian Conway

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Extract substring from offset to space or full stop

[Akhthar Parvez K]

>$str =~ m{ \A ( .{0,15} .*? ) \s }msx;

Yeah, this would do. I talked about the scenario where you didn't put "{0,15}", 
but just "{15}".  In that case, it wouldn't work if the value given in the 
match string (15 as per above eg.) is greater than the character count of the 
particular string (36).


my $str = "The black cat climbed the green tree";
print "string: $str\n";

$str =~ m{ \A ( .{50} .*? ) \s }msx;
my $extracted = $1;
print "extracted: $extracted\n";


Result:
string: The black cat climbed the green tree
Use of uninitialized value in concatenation (.) or string at 
scripts/test/test2.pl line 14.
extracted:

But it worked for the OP (the above condition may not have been required for 
him) and that's what is important :-)

Regards,
Akhthar Parvez K
http://Tips.SysAdminGUIDE.COM
UNIX is basically a simple operating system, but you have to be a genius to 
understand the simplicity - Dennie Richie
On Sunday 18 Apr 2010, Shawn H Corey wrote:
> Akhthar Parvez K wrote:
> > Hi Shawn,
> > 
> >> $str =~ m{ \A ( .{15} .*? ) \s }msx;
> > 
> > I don't think this would work if the value given in the match string (15 as 
> > per above eg.) is greater than the character count of the particular 
> > string. Right?
> 
> No, it will fail if $str is less than 15 characters.  Try:
> 
> #!/usr/bin/perl
> 
> use strict;
> use warnings;
> 
> for my $str ( "The black cat climbed the green tree", 'A test' ){
>my $extracted = extract( $str );
>print "string: $str\n";
>print "string: $extracted\n";
> }
> 
> sub extract {
>my $str = shift @_;
> 

>my $extracted = $1;
> 
>return $extracted;
> }
> 
> __END__
> 
> -- 
> Just my 0.0002 million dollars worth,
>Shawn
> 
> Programming is as much about organization and communication
> as it is about coding.
> 
> I like Perl; it's the only language where you can bless your
> thingy.
> 
> Eliminate software piracy:  use only FLOSS.
> 



-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

this email is comming to me by mistake, Please stop sending.

[Page Works]

To subscribers at Perl.org

I have received at least 150 emails today, these letters that you all are
sending to Perl.org are landing in my email box, and not to perl.org...

Sincerly, Over it!



-Original Message-
From: Teresa Raymond [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 07, 2001 2:52 PM
To: beginnerperllist
Subject: More "Succinctification"


How can we make this code more succinct?

#LOOP TO INITIALIZE VARIABLES + TEST N COMMANDS FOR MATCH IS YES
foreach $i (sort(@indata))
{chop($i);
($aptname,$address,$city,$zip,$phone,$location,$bedrooms,$rentmin,$ren
tmax,$pets,$laundry,$garage,$comment,$aptweb,$aptemail,$graphic)=split
(/\|/,$i);
  if (($in{'location'} eq "All" || $location=~/$in{'location'}/ig) &&
($in{'bedrooms'} eq "Any" || $bedrooms=~/$in{'bedrooms'}/ig ||
($in{'bedrooms'} eq "4 plus Bedrooms" && ($bedrooms=~/4 Bedrooms/ig
|| $bedrooms=~/5 Bedrooms/ig || $bedrooms=~/6 Bedrooms/ig))) &&
($rentmin<=$in{'rentmax'} && $rentmax>=$in{'rentmin'})  &&
($pets=~/$in{'pets'}/ig || $in{'pets'} eq "Doesn't Matter" ||
($in{'pets'}=~/yes/ig && ($pets=~/Cats/ig || $pets=~/Some Units/ig)))
&& ($laundry=~/$in{'laundry'}/ig || $in{'laundry'} eq "Doesn't
Matter" || ($in{'laundry'}=~/yes/ig && $laundry=~/Some Units/ig)) &&
($garage=~/$in{'garage'}/ig || $in{'garage'} eq "Doesn't Matter" ||
($in{'garage'}=~/yes/ig && $garage=~/Some Units/ig)))
  {$match="yes";
   print "\n";
   print "Result: ", $apartment++,
"\n";
   print "$aptname$address$city
$zip$phoneContact UsRent: $rentmin to
$rentmaxBedrooms: $bedrooms\n";
   print "\n";
   print "Pets: $pets  Laundry:
$laundry  Garage: $garage\n";
   print "\n";
   print "Hyde Park Location:
$location\n";
   print "";
   print "Comments:$comment\n";
   print "\n";
  }
}
print "\n";
-Teresa Raymond
http://www.mariposanet.com
[EMAIL PROTECTED]

Please tell your people to stop sending E-mail to me.

[richard kirby]

I have unsubscribed to all your supposed E-mail
subscriptions. You you PLEASE pass the word to your 
subscribers to stop sending e-mail to me concerning
Perl. Your subscribers are flooding me e-mail
90+ e-mail a day. I original subscribed to your server
to get some insight into using Perl. I am very sorry
I did so. Once more PLEASE pass the word to the 
people that are connected to your server to QUIT
flooding me with there e-mails, I do not want to here
from them. PLEASE get the word out.

  



__
Do You Yahoo!?
Spot the hottest trends in music, movies, and more.
http://buzz.yahoo.com/

Fwd: Please tell your people to stop sending E-mail to me.

[Rochel Kraus]

 I agree!! I've been getting 160+ emails a day and I can't get off this list and it's 
driving me crazy.  If this doesn't stop soon, I am going to have to open up a new 
e-mail account for myself!!! Please unsubscribe me
  richard kirby <[EMAIL PROTECTED]> wrote: Date: Tue, 19 Jun 2001 14:11:43 -0700 (PDT)
From: richard kirby 
Subject: Please tell your people to stop sending E-mail to me.
To: [EMAIL PROTECTED]

I have unsubscribed to all your supposed E-mail
subscriptions. You you PLEASE pass the word to your 
subscribers to stop sending e-mail to me concerning
Perl. Your subscribers are flooding me e-mail
90+ e-mail a day. I original subscribed to your server
to get some insight into using Perl. I am very sorry
I did so. Once more PLEASE pass the word to the 
people that are connected to your server to QUIT
flooding me with there e-mails, I do not want to here
from them. PLEASE get the word out.





__
Do You Yahoo!?
Spot the hottest trends in music, movies, and more.
http://buzz.yahoo.com/


-
Do You Yahoo!?
Yahoo! Buzz Index - Spot the hottest trends in music, movies,and more.

RE: Please tell your people to stop sending E-mail to me.

[Myrian Hernandez]

Please, unsubscribe me too.
I can not stand the email flooding anymore.

-Mensaje original-
De: Rochel Kraus [mailto:[EMAIL PROTECTED]]
Enviado el: Martes, 19 de Junio de 2001 16:56
Para: [EMAIL PROTECTED]
Asunto: Fwd: Please tell your people to stop sending E-mail to me.



 I agree!! I've been getting 160+ emails a day and I can't get off this list
and it's driving me crazy.  If this doesn't stop soon, I am going to have to
open up a new e-mail account for myself!!! Please unsubscribe me
  richard kirby <[EMAIL PROTECTED]> wrote: Date: Tue, 19 Jun 2001
14:11:43 -0700 (PDT)
From: richard kirby
Subject: Please tell your people to stop sending E-mail to me.
To: [EMAIL PROTECTED]

I have unsubscribed to all your supposed E-mail
subscriptions. You you PLEASE pass the word to your
subscribers to stop sending e-mail to me concerning
Perl. Your subscribers are flooding me e-mail
90+ e-mail a day. I original subscribed to your server
to get some insight into using Perl. I am very sorry
I did so. Once more PLEASE pass the word to the
people that are connected to your server to QUIT
flooding me with there e-mails, I do not want to here
from them. PLEASE get the word out.





__
Do You Yahoo!?
Spot the hottest trends in music, movies, and more.
http://buzz.yahoo.com/


-
Do You Yahoo!?
Yahoo! Buzz Index - Spot the hottest trends in music, movies,and more.