> "JG" == Jim Gibson writes:
JG> On 3/2/11 Wed Mar 2, 2011 3:33 PM, "Uri Guttman"
JG> scribbled:
>>> "T" == TaP <4eversp...@gmail.com> writes:
>>
T> Hi Guys,
T> I have this script:
>>
T> if ($line =~ /\b([\w_\-\.]+ at [\w_\-\.]+)\b/) {
JG> The ' at ' in the abov
On 3/2/11 Wed Mar 2, 2011 3:33 PM, "Uri Guttman"
scribbled:
>> "T" == TaP <4eversp...@gmail.com> writes:
>
> T> Hi Guys,
> T> I have this script:
>
> T> if ($line =~ /\b([\w_\-\.]+ at [\w_\-\.]+)\b/) {
The ' at ' in the above line should also be '@'.
--
To uns
> "T" == TaP <4eversp...@gmail.com> writes:
T> Hi Guys,
T> I have this script:
T> #!/usr/bin/perl
T> # track, find email addresses in emails,
T> # writes them to /var/opt/ITrootmail/bad/ with a date
T> # set up as a pipe for procmail or use with Pine
T>
> "HP" == Harry Putnam writes:
HP> "Steve Bertrand" writes:
HP> [...]
>> ...I'm very willing to accept all feedback, and can accept such feedback
>> humbly ( sometimes after a period of embarrassment and self-loathing ).
HP> [...]
HP> Steve, just wanted to tell you that I real
"Steve Bertrand" writes:
[...]
> ...I'm very willing to accept all feedback, and can accept such feedback
> humbly ( sometimes after a period of embarrassment and self-loathing ).
[...]
Steve, just wanted to tell you that I really got a kick out of that
comment. It so aptly describes my own re
On 9/8/09 1:01 AM, Uri Guttman wrote:
as it has been said the best way to learn more perl is to read more
perl. working on existing modules is a great way to do that. i will
offer massive amounts of help but i expect a certain level of energy in
return. it won't be easy for either of us but i am
Uri Guttman wrote:
>> "SB" == Steve Bertrand writes:
> SB> Although I can't commit to a specific schedule, I have been
> SB> looking for a CPAN project to help with, just so I can integrate
> SB> myself into someone else's code, and get myself away from my own.
>
> then check out file:
> "SB" == Steve Bertrand writes:
SB> Uri Guttman wrote:
>> so are any of you up for this challenge?
SB> Are there any specific areas within any of your projects that you'd like
SB> to propose a help request more than others?
there is such a wide range that i can't list them here. s
Uri Guttman wrote:
> so are any of you up for this challenge?
Are there any specific areas within any of your projects that you'd like
to propose a help request more than others?
Can you provide further details about your new module ideas?
Although I can't commit to a specific schedule, I have
On Tue, 2009-09-08 at 01:01 -0400, Uri Guttman wrote:
> hi all,
>
> i saw the recent thread on beginner projects and thought i would toss in
> some ideas. i have many perl modules in various stages and they have
> many projects that need help. these projects vary in skill levels from
> very simple
I found Learning Perl very good, it could be a good place to start.
On Wed, Jul 15, 2009 at 6:53 PM, Shawn H. Corey wrote:
> On Wed, 2009-07-15 at 05:58 -0700, shridhar kyrlageri wrote:
> > hi guys
> >
> > i am very new to perl . i want to learn this language but i dont know
> > where to sart and
On Wed, 2009-07-15 at 05:58 -0700, shridhar kyrlageri wrote:
> hi guys
>
> i am very new to perl . i want to learn this language but i dont know
> where to sart and what to do. please enlighten me
>
Try http://perlmonks.org/?node=Tutorials
--
Just my 0.0002 million dollars worth,
Shawn
Hi,
This one helped me to get started:
http://oreilly.com/catalog/9780596520106/
Quickly followed by:
http://oreilly.com/catalog/9780596000271/
Good Luck!
-
Marco van Kammen
Springer Science+Business Media
System Manager & Postmaster
-
van Godewijckstraat 30 | 3311 GX
Office Number: 05E21
"Jenda Krynicky" schreef:
> I did not know they were silly enough to
> include some additional unicode characters in \d, I expected those to
> be only in the [[:IsNumber:]].
IsNumber is about number characters, also including encircled digits and
the Latin I.
The why is on unicode.org. (or google
Jenda Krynicky wrote:
>
> Thanks for the \d info, I did not know they were silly enough to
> include some additional unicode characters in \d, I expected those to
> be only in the [[:IsNumber:]].
>
> It's really sily as there really are characters that match /^\d$/,
> yet $char+0 issues a "Argum
On 15 Oct 2007 at 20:43, Dr.Ruud wrote:
> Jenda Krynicky schreef:
> > Dr.Ruud:
>
> >> [$version =~ s/^(Version:\s*(?:\d+\.)*)(\d+)/$1 . ($2+1)/e;]
> >>
> >> - you are using string evaluation. (read perlretut again)
> >
> > No I'm not. It's a single /e, not double /ee. The stuff inside the
> > matc
On 10/15/07, Dr.Ruud <[EMAIL PROTECTED]> wrote:
> Jenda Krynicky schreef:
> > Dr.Ruud:
>
> >> [$version =~ s/^(Version:\s*(?:\d+\.)*)(\d+)/$1 . ($2+1)/e;]
> >>
> >> - you are using string evaluation. (read perlretut again)
> >
> > No I'm not. It's a single /e, not double /ee. The stuff inside the
>
Jenda Krynicky schreef:
> Dr.Ruud:
>> [$version =~ s/^(Version:\s*(?:\d+\.)*)(\d+)/$1 . ($2+1)/e;]
>>
>> - you are using string evaluation. (read perlretut again)
>
> No I'm not. It's a single /e, not double /ee. The stuff inside the
> matched string is not evaluated as Perl code. Read perlretut a
Jenda Krynicky schreef:
> Dr.Ruud:
>> - be careful when to use \d, that set can contain more than 100
>> characters.
>
> Beg your pardon?
I write [0-9] when I mean [0-9]. Many Perl developers keep thinking that
\d and [0-9] are equivalent.
Check out http://www.xs4all.nl/~rvtol/perl/unicount.pl
From: "Dr.Ruud" <[EMAIL PROTECTED]>
> "Jenda Krynicky" schreef:
>
> > Having a string like this:
> >
> > $version = 'Version: 1.47.785';
> >
> > increment the last number. I seriously doubt you can do anything even
> > remotely as simple as
> >
> > $version =~ s/^(Version:\s*(?:\d+\.)*)(\d+)/$1
Dr.Ruud wrote:
> Well, don't underestimate version number logic. Version numbers can also
> be like "1.23.045_21".
>
> Yes, v-strings are deprecated, but supporting version number logic
> isn't. Again: see version.pm.
> (the C-version is 6k, the Perl version is 11k)
>
>
I'm not underestimating v
"Jenda Krynicky" schreef:
> Having a string like this:
>
> $version = 'Version: 1.47.785';
>
> increment the last number. I seriously doubt you can do anything even
> remotely as simple as
>
> $version =~ s/^(Version:\s*(?:\d+\.)*)(\d+)/$1 . ($2+1)/e;
- never trust your own (often temporary) d
Matthew Whipple schreef:
> My response was actually due to my lack of knowledge
> about Perl's v-strings and therefore I viewed your treatment from a
> more logical perspective.
The building blocks of Perl Version Strings are just characters.
$ perl -wle 'print 65.66.67'
ABC
$ perl -wle 'print
Sorry I prefer messages where the point is easily visible rather than
having to scroll down to the bottom of a thread of things that people
have read several times over and don't see the need to place simple
concepts in context (particularly when sufficient context is left
afterward). My response
From: "Dr.Ruud" <[EMAIL PROTECTED]>
> "Jenda Krynicky" schreef:
> > Dr.Ruud:
> > Try
> >
> > print( (1.2.3 eq '1.2.3') ? 'yes' : 'no');
>
> $ perl -wle 'print sprintf("%vd", 1.2.3) eq "1.2.3" ? "y" : "n"'
> y
So you proved that you can convert a version string into an ordinary
one. Now the o
"Jenda Krynicky" schreef:
> Dr.Ruud:
>> Matthew Whipple:
>>> Dr.Ruud:
Tatiana Lloret Iglesias:
> What regular expression do I need to convert
> Version: 1.2.3 to
> Version: 1.2.4 ?
>
> I.e. my pattern is Version: number.number.number and from that i
> need Version:
Dr.Ruud wrote:
"Tatiana Lloret Iglesias" schreef:
What regular expression do I need to convert Version: 1.2.3 to
Version:
1.2.4 ?
I.e. my pattern is Version: number.number.number and from that i need
Version: number.number.number+1
After the : i can have a space or not...
Why use a rege
From: "Dr.Ruud" <[EMAIL PROTECTED]>
> Matthew Whipple schreef:
> > Dr.Ruud:
> >> Tatiana Lloret Iglesias:
>
> >>> What regular expression do I need to convert Version: 1.2.3 to
> >>> Version:
> >>> 1.2.4 ?
> >>>
> >>> I.e. my pattern is Version: number.number.number and from that i
> >>> nee
Matthew Whipple schreef:
> Dr.Ruud:
>> Tatiana Lloret Iglesias:
>>> What regular expression do I need to convert Version: 1.2.3 to
>>> Version:
>>> 1.2.4 ?
>>>
>>> I.e. my pattern is Version: number.number.number and from that i
>>> need Version: number.number.number+1
>>> After the : i can
This wouldn't scale past double digits. If you're going to separate it
out you may as well break the minor revisions into it's own variable and
then concatenate/format on output...that would also be more easily used
with a code management system's built in revision tracking (though this
could also
"Tatiana Lloret Iglesias" schreef:
> What regular expression do I need to convert Version: 1.2.3 to
> Version:
> 1.2.4 ?
>
> I.e. my pattern is Version: number.number.number and from that i need
> Version: number.number.number+1
> After the : i can have a space or not...
Why use a regex?
pe
On Oct 10, 2:39 pm, [EMAIL PROTECTED] (Tatiana Lloret Iglesias)
wrote:
> Hi all!
>
> What regular expression do I need to convert Version: 1.2.3 to Version:
> 1.2.4 ?
>
> I.e. my pattern is Version: number.number.number and from that i need
> Version: number.number.number+1
> After the : i can
Thanks a lot !!
T
On 10/10/07, Rob Dixon <[EMAIL PROTECTED]> wrote:
>
> Tatiana Lloret Iglesias wrote:
> >
> > Hi all!
> >
> > What regular expression do I need to convert Version: 1.2.3 to
> Version:
> > 1.2.4 ?
> >
> > I.e. my pattern is Version: number.number.number and from that i need
$ perl -e '$x="Version: 1.2.3";$x=~s/(Version:
\d+\.\d+\.)(\d+)/$1.($2+1)/e;print $x'
Version: 1.2.4
2007/10/10, Tatiana Lloret Iglesias <[EMAIL PROTECTED]>:
> Hi all!
>
> What regular expression do I need to convert Version: 1.2.3 to Version:
> 1.2.4 ?
>
> I.e. my pattern is Version: number.
Or
You can also do ...
$string =~ s/(\d+)$/$1+1/e;
Ashok
On 10/10/07, Rob Dixon <[EMAIL PROTECTED]> wrote:
>
> Tatiana Lloret Iglesias wrote:
> >
> > Hi all!
> >
> > What regular expression do I need to convert Version: 1.2.3 to
> Version:
> > 1.2.4 ?
> >
> > I.e. my pattern is Version: num
Tatiana Lloret Iglesias wrote:
Hi all!
What regular expression do I need to convert Version: 1.2.3 to Version:
1.2.4 ?
I.e. my pattern is Version: number.number.number and from that i need
Version: number.number.number+1
After the : i can have a space or not...
Hello Tatiana
This will
On 6/27/07, Chas Owens <[EMAIL PROTECTED]> wrote:
On 6/27/07, Rick <[EMAIL PROTECTED]> wrote:
> Ok so the boss wants me to create two scripts in perl and I don't even
> know where to begin.
>
> One is to copy a log file to a backup server every hour.
>
> And the second is to restore the backup fr
On 6/27/07, Rick <[EMAIL PROTECTED]> wrote:
Ok so the boss wants me to create two scripts in perl and I don't even
know where to begin.
One is to copy a log file to a backup server every hour.
And the second is to restore the backup from one server from the
previous night to the backup server e
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Rick wrote:
> Ok so the boss wants me to create two scripts in perl and I don't even
> know where to begin.
>
>
>
> One is to copy a log file to a backup server every hour.
>
>
>
> And the second is to restore the backup from one server from the
Gerben Wierda wrote:
I've got a XML file that contains the following snippet
I suggest getting gvim on your PC. gvim can be difficult to learn at first
but is definitely needed when needing to replace some snippet of code in
multiple locations.
While notepad does allow you to do this, you can't enter pattern matching
expressions to replace on a command line with notepad.
isaac vanderpuije 写道:
i just installed the activeperl and dont know where to edit my source code (is
it notepad? ) and where to run it.Can any one help me because i want to learn
it bad.
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best
isaac vanderpuije <[EMAIL PROTECTED]> wrote: i just installed the activeperl
and dont know where to edit my source code (is it notepad? ) and where to run
it.Can any one help me because i want to learn it bad.
You can use any editor which produces plain text, including notepad. I
don't
On 7 Dec 2006 at 3:47, isaac vanderpuije wrote:
>
> yes am using the x86 processor, i installed and didnt see any sign of
> perl on my PC
>
> Beginner <[EMAIL PROTECTED]> wrote:
> On 7 Dec 2006 at 3:31, isaac vanderpuije wrote:
>
> > have a problem installing the perl msi(windows platf
On 7 Dec 2006 at 3:31, isaac vanderpuije wrote:
> have a problem installing the perl msi(windows platform) can anyone help me,
> because i need to learn perl urgently. thanks
>
Could you give us a few more details about the error message and what
you've done to try and install it. What is yo
Thanks Solli. :-)
On Thursday 30 November 2006 11:14, Junaid Shariff wrote:
> Hello again. Thanks for the prompt reply. Not sure if i explained my doubt
> clearly.
> Basically I run the ncpmount command, which requires the user to enter the
> remote server password. But that password has already been entered by the
Hello again. Thanks for the prompt reply. Not sure if i explained my doubt
clearly.
Basically I run the ncpmount command, which requires the user to enter the
remote server password. But that password has already been entered by the
user once before and is stored by me in a variable. Now when I ha
I am new to perl and have a doubt. I have a script that needs to run a
command. The command that is being run requires input from the user to
proceed. Instead of prompting the user how can I code the utility to not
prompt the user but take the input from a variable that has the value that
is to be
Hello and welcome!
On Thursday 30 November 2006 10:32, Junaid Shariff wrote:
> I am new to perl and have a doubt. I have a script that needs to run a
> command. The command that is being run requires input from the user to
> proceed. Instead of prompting the user how can I code the utility to not
M K Scott wrote:
Well, it may not be the ideal solution but just for the record I got it to
work.
I used a scalar to contain the correect value:
$pound = chr 156;
Then used unshift to add it to the array.
unshift @array, $pound;
Seems to have done the trick which is all I wa
the help, I'm sure I'll be back soon.
Mark
>-Original Message-
>From: [EMAIL PROTECTED]
>[mailto:[EMAIL PROTECTED] On Behalf Of zentara
>Sent: 18 April 2006 20:13
>To: beginners@perl.org
>Subject: Re: beginner help
>
>On Tue, 18 Apr 2006 13:37:11 +01
"M K Scott" schreef:
> I am trying to initialise an array with certain characters in it to
> then match to user input but the '£' symbol is coming up in the
> comparison as a funny looking 'u symbol with a squiggle above. Is
> this due to me being inept at programming or my PC not understanding
>
On Tue, 2006-18-04 at 13:37 +0100, M K Scott wrote:
> I am just starting out teaching myself Perl from books and web resources so I
> apologise if my questions seems a little straight forward but I was hoping to
> ask here to get clarification and so I hope my simple questions do not annoy
> you
On Fri, 25 Mar 2005 14:07:02 -0800, Kyle Lampe wrote:
>
> while ( $lineFile1 = && $lineFile2 = ) {
[...snip...]
> But it's complaining about my &&. How can I increment the contents of
> 2 files like this at once?
>
According to "perldoc perlop", the && operator has higher precedence
than th
Kyle Lampe wrote:
Hello!
Hi
I've got a quick perl question for you. I'm writing a script that
compares two xml files, ignoring one certain tag.
The problem I have is I want to get the output from two files simultaneously.
What I'm trying is:
while ( $lineFile1 = && $lineFile2 = ) {
try:
while (
Thanks a lot for your time please reply very soon.
muchas gracias por su tiempo por favor contestame
muy pronto.
Bye.Jesus Velasquez
--
___
http://mail.mexico.com
¡Disponible Ya! Utiliza el Outlook y Outlook Express para bajar tus correos por solo
Can Anyone Help...thanks if you can!
I have an array called group_vals.
I want to be able to return conditional statements according to the results
after searching the array.
I need it to go something like this:
##
search array group_vals
(optional) split the array in $grou
Tristram Nefzger wrote:
>
> >Which PPM server are you using Tristram?
>
> I've switched to from ActiveState perl to the Cygwin perl
> package. The latter doesn't seem to include the ppm command.
No. As far as I know PPM is an ActiveState product which you
will get by installing ActivePerl.
> Usi
>Rob Dixon wrote:
>Which PPM server are you using Tristram?
Hey Rob,
To get my attention it's best to include me explicitly on the To list in
addition to [EMAIL PROTECTED]
I've switched to from ActiveState perl to the Cygwin perl package. The
latter doesn't seem to include the ppm command.
Tristram Nefzger wrote:
>
> >Rob Dixon wrote:
>
> >Which PPM server are you using Tristram?
>
> Hey Rob,
>
> To get my attention it's best to include me explicitly on the
> To list in addition to [EMAIL PROTECTED]
The list works on a public basis only. I will send a courtesy
copy to people if it i
Rob Dixon wrote:
>
> Which PPM server are you using Tristram? On my system
>
It's just occurred to me that your PPM shell may be an
old one. Mine starts up with
PPM interactive shell (2.1.5)
and it's my guess that, with a leap of faith, if you
just do
ppm install DBD::Oracle
it may well wo
Tristram Nefzger wrote:
>
> Bob Showalter wrote:
>
> My apologies for being vague.
>
> I have the client sw installed. I can connect and work with my databases
> via SQLPlus just fine.
>
> The issue Im having is I understand I need DBD::Oracle. I cant find it.
> If I go into ppm and do a search Ora
http://www.perl.com/CPAN/modules/by-module/DBD/
-Original Message-
From: jeffrey pearson [mailto:[EMAIL PROTECTED]
Sent: Friday, October 10, 2003 2:21 PM
To: Bob Showalter
Cc: [EMAIL PROTECTED]
Subject: Re: RE: Beginner Help Please- Oracle How To?
My apologies for being vague.
I have
-OracleLogin
4. DBIx-OracleLogin
5. DDL-Oracle
not a DBD::Oracle in sight.
OK. Where do I get this module from?
- Original Message -
From: Bob Showalter <[EMAIL PROTECTED]>
Date: Friday, October 10, 2003 10:53 am
Subject: RE: Beginner Help Please- Oracle How To?
> jeffre
jeffrey pearson wrote:
> Im hoping I could get some beginner help please. Im in the
> middle of writing my first PERL program. My development
> machine is WinXP. Ive downloaded, installed and am working
> with the ActivePERL 5.8. Im trying to connect and access an
> oracle database. Ive figured out
perldoc DBI
Or
http://safari.oreilly.com/JVXSL.asp?x=1&mode=section&sortKey=rank&sortOr
der=desc&view=book&xmlid=1-56592-699-4&open=false&g=&srchText=dbi&code=&
h=&m=&l=1&catid=&s=1&b=1&f=1&t=1&c=1&u=1&r=&o=1&page=0
-Original Message-
From: jeffrey pearson [mailto:[EMAIL PROTECTED]
Sen
Thanks for the advice. The script now goes through each email and the regex
gets the Appointment Date properly. I think my last misunderstanding is how
to loop through and get all of the "Comments" in each email, because they
tend to be multi-line. Currently, it keeps looping in an endless loop.
On Mon, Aug 25, 2003 at 05:19:14PM -0700 nntp.perl.org wrote:
> I have had success now using Mail::MboxParser for all my basic mail parsing
> needs, like getting subject, from, to. Now bossman wants me to do more
> extensive regex filtering and grabbing weird data in the email body.
>
> I wrote
Nntp.Perl.Org wrote:
I have had success now using Mail::MboxParser for all my basic mail parsing
needs, like getting subject, from, to. Now bossman wants me to do more
extensive regex filtering and grabbing weird data in the email body.
I wrote a little test script, shown below. I am able to get
> or u can use :
>
> if($password =~ /^howard$/)
> {
> ## logic goes here
> }
>
> --
> From: James Edward Gray II[SMTP:[EMAIL PROTECTED]
> Sent: Saturday, June 14, 2003 8:58 PM
> To: deborah
> Cc: [EMAIL PROTECTED]
> S
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Deborah) writes:
>In the same line as my last question once I tried to understand how
>Perl was interpreting string comparisons, I started experimenting with
>different strings.
>
>What is Perl doing here? Why doesn't it use the "if" stateme
On Saturday, June 14, 2003, at 10:01 AM, deborah wrote:
In the same line as my last question once I tried to understand
how Perl was interpreting string comparisons, I started experimenting
with different strings.
What is Perl doing here? Why doesn't it use the "if" statement as a
conditi
Deborah wrote:
>
> In the same line as my last question once I tried to understand how
> Perl was interpreting string comparisons, I started experimenting with
> different strings.
>
> What is Perl doing here? Why doesn't it use the "if" statement as a
> condition? It reassigns the variable v
perldoc GetOpt::Long
Example:
#!/usr/local/bin/perl -w
use strict;
use Getopt::Long;
my $var='';
&GetOptions('unreserved' => \$var);
print "coucou\n" if($var);
__END__
HTH,
José.
-Original Message-
From: Javeed SAR [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 09, 2002 8:56 AM
The script looks ok to me, so you might need to debug the input values and
the data it is drawing from.
This is probably where the problem is:
$sql = "select * from product,order_line where prod_num = product_id and
order_num = $order_id";
If you can, print the value of $sql and then run the qu
my guess:
it seems that this is where the fault lies. But without information on how
the database is setup and what $order_id is there is not much else that I
can pick at.
$sql = "select * from product,order_line where prod_num = product_id and
order_num = $order_id";
make sure your WHERE claus
Shouldn't your query add the $Cust_ID too ??
$sql = "select * from product,order_line where prod_num = product_id and
order_num = $order_id";
How is this query going to identify a particular customer ??
--
I'm not sure if t
1. One of the things that got me hooked on Perl in the first place (besides
the fact that I didn't have to fork out X-hundred dollars for a compiler and
books) was the fact that it is very easy to start learning, but complex
enough that I've been using it for a little over a year now, and I sti
On Saturday, June 15, 2002, at 10:50 , Michael Edwards wrote:
>
[..]
> 1.Is it hard to learn
Yes and No - There are some gotcha's depending upon which
is your coding background.
> 2.Are there any good websites about learning it
PerlSonally I have been collecting some URL's at:
http://
On Tuesday, May 14, 2002, at 02:35 , Jaishree Rangaraj wrote:
[..]
> I have to check if a literal is within a partiocular range say [1..10].
the first thing you will need to check is that it is numeric
then you can check that it is in range.
> How do I do this. Can I use "eq" operator to check
You could always try something like this:
if($var >= 1 && $var <= 10){
do something...
}
-Original Message-
From: Jaishree Rangaraj [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, May 14, 2002 2:36 PM
To: [EMAIL PROTECTED]
Subject: beginner, please help
Hi
I have to check if a literal
You need to have a web server installed. The scripts are then put into the cgi-bin
directory and accessed from a browser like this:
http://host.com/cgi-bin/script.pl
or
http://host.com/cgi-bin/script.cgi
IIS will handle cgi scripts just fine. See you documentation on setup.
Craig A. Sharp
Un
Frank 'Olorin' Rizzi wrote:
>Hello everybody.
>
>I am just starting with Perl,
>so the following question will probably appear simple to most of you.
>
>I am trying to get a Perl program to provide me with a listing of the files
>stored on the machine (where the program runs).
>The environment is
--- Shawn <[EMAIL PROTECTED]> wrote:
> Geez, if your gonna flame a newcomer, at least answer the question while
> your at it.
This was a flame?
> > We just discussed this today. Please do NOT crosspost. This is better in
> the [EMAIL PROTECTED]
> > list. Further, having a useful subject line
t; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Thursday, December 13, 2001 4:22 PM
Subject: Re: beginner question
> We just discussed this today. Please do NOT crosspost. This is better in
the [EMAIL PROTECTED]
> list. Further, having a useful su
We just discussed this today. Please do NOT crosspost. This is better in the
[EMAIL PROTECTED]
list. Further, having a useful subject line helps. If I had a penny for every
unhelpful subject
line I've seen today... hold on a minute... I'd have $1.27 :)
(tip 'o the keyboard to Terry Pratchet
On 9/24/2001 4:00 PM, "Riggs, Joan" <[EMAIL PROTECTED]> wrote:
>
>> I am not a Perl programmer but I need help - does anyone do Unix Perl
>> scripting that can assist me?
>> I am sure it's pretty basic coding ... I need to parse out the
> /etc/group
>> file to list all users and the groups they
On May 22, Peter Cline said:
>> @parts = split ' ', "this and that";
>> { local $" = ") ("; print "(@parts)"; }
>> # (this) (and) (that)
>
>Will the ") (" assign any amount of space to the list separator?
>This is interesting. I haven't encountered this syntax before.
Using split ' ' is
Thanks for catching my errors. I was thinking too narrowly, using just the
one template provided. This can of course be dangerous, for things change.
At 05:30 PM 5/22/01 -0400, Jeff Pinyan wrote:
>You might want to use the special split ' ' syntax:
>
> @parts = split ' ', "this and that";
On May 22, Peter Cline said:
>Try this.
>my $text = "Browser/Version Platform";
>my ($keep,$discard) = split / /, $text;
>print "$keep\n";
>
>This splits on space and saves the part you want to the variable $keep and
>the rest to $discard.
Actually, it splits on EXACTLY one space. That can cau
> "Peter" == Peter Cline <[EMAIL PROTECTED]> writes:
Peter> Try this.
Peter> my $text = "Browser/Version Platform";
Peter> my ($keep,$discard) = split / /, $text;
Peter> print "$keep\n";
Peter> This splits on space and saves the part you want to the variable $keep
Peter> and the rest to $dis
Try this.
my $text = "Browser/Version Platform";
my ($keep,$discard) = split / /, $text;
print "$keep\n";
This splits on space and saves the part you want to the variable $keep and
the rest to $discard.
Also you could use a regular expression like such:
my $text = "Browser/Version Platform";
$
On May 22, Mark on GCI Server said:
>open(TESTER, "print "Enter a username: ";
>$input = ;
You need to chomp $input, since it has a newline at the end.
>$x = 0;
>$y = 0;
>$w = 0;
>$z = 1;
>if ( ne "") {
That reads a line (and it is lost forever).
>while($line = ) {
>c
The better point is to provide the list with a snippet of the code and the
individuals are then more than willing to assist. Otherwise necessary
information may be omitted and you go down the wrong path.
Wags ;)
-Original Message-
From: Mark on GCI Server [mailto:[EMAIL PROTECTED]]
Sent
On May 22, Mark on GCI Server said:
> I'm trying to populate an array from a file, I think I've got the array
>populated, however, I'm not sure. I then want to compare an input against
>the array to determine if its there, then look at the second component of
>each record. Any assistance would
At 11:09 21.05.2001 -0700, you wrote:
>if ($oldLot[1] == 0)
>{
> $arpCount = $arp{$lot}; ==> Part 1
>}
>else
>{
> $arpCount = "-"; ==> Part 2
>}
>
>printf "%3s %3d ", $arpCount, $count;
>
>My problem occurs in the "printf" at the "%3s". Here
>is the situation: When $oldLot[1] =
: if ($oldLot[1] == 0)
: {
: $arpCount = $arp{$lot}; ==> Part 1
: }
: else
: {
: $arpCount = "-"; ==> Part 2
: }
:
: printf "%3s %3d ", $arpCount, $count;
:
: My problem occurs in the "printf" at the "%3s". Here
: is the situation: When $oldLot[1] == 0, $arpCount is
: equal to
Try the program dos2unix...I've noticed a bunch of posts talking about getting rid
of ^M or whatever, but I think this does it in one shot from the command line. I've
used it with great success. From the man page:
dos2unix - convert text file from DOS format to ISO format.
FreeBSD is so rich wit
On May 10, David A. Desrosiers said:
>
>>It didn't work ...
>>the reason .. Attack of the ^M 's
>
> perl is your friend:
>
> perl -pi -e 's#\r\n#\n#g' formail.pl
Why use s/// if you don't have to?
japhy% perl -pi -e 'tr/\r//d' files...
Why use Perl if you don't have to?
1 - 100 of 123 matches
Mail list logo
