Jack Butchie wrote:
>
> Wouldn't it be more productive if what the question was was actually
> inserted into the subject area. instead of a generic term. Subscribers could
> instantly see if it's something they might be interested in instead of
> opening the email to see what "Simple Questions"
ns" actually is.
- Original Message -
From: "Stewart Anderson" <[EMAIL PROTECTED]>
To: "Richard Lee" <[EMAIL PROTECTED]>; "Perl Beginners"
Cc: "Stewart Anderson" <[EMAIL PROTECTED]>
Sent: Wednesday, October 22, 2008 3:16 AM
Subject: RE: :S
> -Original Message-
> From: Richard Lee [mailto:[EMAIL PROTECTED]
> Sent: 22 October 2008 06:00
> To: Perl Beginners
> Subject: XML::Simple question
>
> while trying to study the article on perlmonks.org,
>
> http://perlmonks.org/?node_id=490846
>
> regarding XML parsing, I need bit of
t;
> To: Alex Goor <[EMAIL PROTECTED]>
> Sent: Sunday, April 27, 2008 12:43:47 PM
> Subject: Re: simple question
>
> you should use hash, see more detail
> perldoc perldsc
>
>
> use strict;
> use warnings;
> my %hash_symbol;
>
> while (my $message = <
Alex Goor wrote:
i have a data set of stock orders and i want to count the number of unique
stock symbols in the set.
i have turned the data set into an array and based on the message spec, i
can identify the stock symbols. but i don't know how to make sure i'm only
counting unique ones.
U
Alex Goor wrote:
i have a data set of stock orders and i want to count the number of unique stock symbols in the set.
i have turned the data set into an array and based on the message spec, i can
identify the stock symbols. but i don't know how to make sure i'm only
counting unique ones.
i
Tony Marquis wrote:
Very simple question.
I'm reading a file and i want to remove all the in each lines.
while(FIC) {
$test = $_; #remove crlf.
... some code
}
How can i do that.
Try
$test =~ s/[\r\f]//g;
to remove newlines, use
$test =~ s/[\n]//g;
--
To unsubscrib
On Mon, 30 May 2005 13:09:23 -0400
Tony Marquis <[EMAIL PROTECTED]> wrote:
> Very simple question.
>
> I'm reading a file and i want to remove all the in each lines.
>
> while(FIC) {
>
> $test = $_; #remove crlf.
> ... some code
>
> }
>
> How can i do that.
First of all: stop
You could use HTML and thus the tags around the the items. But
this means the recipient needs a HTML ready email clinent to see it.
On Mon, 13 Dec 2004 15:48:20 -0500, Debbie McNerney
<[EMAIL PROTECTED]> wrote:
> Hi
>
> I have a simple question but I cannot find how to do this. I have a cgi
> s
On Mon, 13 Dec 2004, Debbie McNerney wrote:
> It's the contents of the email I am writing this post about. I can
> create a very simple email shown below. But I would like to make this
> a bit better by bolding the catagorys.
As another commenter noted, formatting in an email message generally
You have to send the message in html format. You could do this with the
module MIME::Lite.
I guess you know how to create a bold text in html.
Teddy
- Original Message -
From: "Debbie McNerney" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, December 13, 2004 10:48 PM
Subject:
This seems to work...
use strict;
# two lists for the comparison
my @orders = (1,5,7,9,3,1,55,23);
my @stash = (4,12,8,0,2,7,9,3,4,13);
# hash of unique numbers
my %join;
# add all of the numbers from both lists to %join.
# turn on the 1 "bit" for @orders, and "2" for @stash.
# this will give n
- Original Message -
From: Trevor Morrison <[EMAIL PROTECTED]>
Date: Friday, August 8, 2003 9:09 am
Subject: Simple question
> Hi,
Hello
>
> I am trying to compare two arrays to find common numbers in both.
> For the
> numbers that are not common to both, I want to write them to a
>
I didn't understand your question but
$line[1] = $line[1]/1000;
shall work
$line[1] /= 1000;
must be faster
-Original Message-
From: Sommer, Henrik [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 05, 2003 5:05 PM
To: [EMAIL PROTECTED]
Subject: Simple question
Hi,
Trevor Morrison <[EMAIL PROTECTED]> wrote:
I am trying to compare two arrays to find common numbers in both. For
the numbers that are not common to both, I want to write them to a file
for my review.
Check the FAQ:
perldoc -q "difference of two arrays"
How do I compute the difference of two ar
> Subject: Simple question
> Date: Fri, 8 Aug 2003 07:09:24 -0600
> From: "Trevor Morrison" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
>
> Hi,
>
> I am trying to compare two arrays to find common numbers in both.
For the
> numbers that are not common to both, I want to write them to a file
for
You seemed to have just answered your own question if I completely understand what
you're asking.
@array = qw/1000 50 20 2000/;
$var1 = $array[0]/10; #100
$var2 = $array[1]/10; #2
$var3 = $array[3]/2000; #1
If anything is not clear just say so.
Chris Carver
Pennswoods.Net
Mail Administrator
You method does work !
However, you can write as :
$line[1] /= 1000;
# which is the same as $line[1] = $line[1] / 1000;
HTH
- Original Message -
From: "Sommer, Henrik" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, August 05, 2003 11:05 PM
Subject: Simple question
> Hi,
>
Sitha Nhok wrote:
> Hi, if I have a multidimensional array like :
>
> @AoA = (
> ["ABC", "BCD"],
> ["CDE", "DEF"],
> ["EFG", "FGH"],
> );
>
>
> then do:
>
> @var = splice @AoA, 2, 1; # to delete the last row
>
> print @var; #print
Sitha Nhok wrote:
> Hi, if I have a multidimensional array like :
>
> @AoA = (
> ["ABC", "BCD"],
> ["CDE", "DEF"],
> ["EFG", "FGH"],
> );
>
>
> then do:
>
> @var = splice @AoA, 2, 1; # to delete the last row
>
> print @var; #print
"Rob Anderson" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
>
> "Sitha Nhok" <[EMAIL PROTECTED]> wrote in message
> news:[EMAIL PROTECTED]
> > Hi, if I have a multidimensional array like :
> >
> > @AoA = (
> > ["ABC", "BCD"],
> > ["CDE", "DEF"],
> >
"Sitha Nhok" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hi, if I have a multidimensional array like :
>
> @AoA = (
> ["ABC", "BCD"],
> ["CDE", "DEF"],
> ["EFG", "FGH"],
> );
>
>
> then do:
>
> @var = splice @AoA
Hi,
If you are moving from a ten-line Javascript routine to perl, do you cgi first on a
simple form with two or t\hree fields. You must learn to crawl before you try to run
a marathon.
When you've made a couple simple cgi forms work, and get back to this, here are some
preliminary tips:
1) D
If you puy that javascript into a static html page does it work?
If so compare the static page's working javascript to the script generated javascript.
Did you backslash any single or double quotes? It could be that perl treats them like
this :
Original javascript :
d1_12 -= eval('theform.num'+i)
Hi Michael,
A couple others have already advised you on Perl arrays, so for your immediate issue,
I'd say go with their advice. Bear in mind though, that Perl arrays will not teach
you the standards for managing arrays that you need in orfer to be truly portable in
your programming skills.
I
> -Original Message-
> From: Michael Kramer [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, December 26, 2002 1:34 PM
> To: [EMAIL PROTECTED]
> Subject: Simple question.
>
>
> I need to make an array with multiple levels example:
> I'm new to perl and have been programming in VBscript for
>
From: "Michael Kramer" <[EMAIL PROTECTED]>
> I need to make an array with multiple levels example:
> I'm new to perl and have been programming in VBscript for about 2
> years now so the code here is in vb because i know that better.
>
> dim my_array(1,3)
my @my_array;
>
On Friday, May 24, 2002, at 08:23 , Leon, Yanet I,,DMDCWEST wrote:
[..]
> s/^\#(shell\s.*tcp\s.*\sin.rshd)$/$1/;
>
> I want to call the above script from another longer one to just perform
> the
> replacement passing a file name as the argument. The lines on the calling
> file should look as f
perldoc -f system
or
perldoc -f exec
or
use of backtick stuff
$script_result=`//bin/perl script.pl arg1 arg2 `;
HTH,
José.
"Leon, Yanet I,,DMDCWEST" <[EMAIL PROTECTED]> a écrit : How do I invoke a perl
program from within another perl program? I don't
need to use a module or create one fo
Hello,
You can use the split() function to seperate each string by a delimiting
character, such as a comma.
For example, in your first line--
Tomy Savage:408-724-0140:1222 Oxbow Court,
Sunnyvale,CA 94087:5/19/66:34200
Given that the fields you want are always before, and directly after the
secon
On Mar 4, Jeff 'japhy' Pinyan said:
>And then you'll want to remove the extraneous information.
>
> ($city, $state) = $addr =~ /\s*([^,]+),\s*([A-Z]{2})/;
I left the first comma out of my regex.
($city, $state) = $addr =~ /,\s*([^,]+),\s*([A-Z]{2})/;
>>__DATA__
>>Tomy Savage:408-724-0140:12
On Mar 4, suraj rajendran said:
>How do I just print only the City and State where
>person lives assuming that I have the following data.
It looks like your data is :-delimited. For your purposes, the
split() function should do fine:
($name, $phone, $addr, $bday, $n) = split /:/, $record;
O
> -Original Message-
> From: senrong [mailto:[EMAIL PROTECTED]]
> Sent: Monday, March 04, 2002 9:27 AM
> To: [EMAIL PROTECTED]
> Subject: Simple question need ans
>
>
> I am writing a simple program that update and search a text
> file for names and telephone number
>
> I just want
As usual there are many ways to do it. I haven't done much with opening
files for read and write at the same time, so someone else will have to
provide ideas for that.
I would either read in the whole file, then rewrite the whole file... or use
DBI (assuming the file is CSV).
If you read in the
Stuart Clark wrote:
>
> # example values
> $Charge = "55";
> $CreditCard = "423452345654532";
>
> $VisaCard = /^4\d{15}/;
> $BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
>
> if ($Charge > 0 && (($VisaCard|$BankCard),$CreditCard) ) { # This bit
> doesn't work?
>
> Print "The credit card
On Feb 8, Stuart Clark said:
>$Charge = "55";
>$CreditCard = "423452345654532";
>
>
>$VisaCard = /^4\d{15}/;
>$BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
You can't store regexes that way. You need to use the qr// operator.
$VisaCard = qr/^4\d{15}$/;
# likewise for $BankCard
>if ($Cha
> -Original Message-
> From: Darren Simpson [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, February 07, 2002 11:17 AM
> To: Perl List
> Subject: RE: simple question
>
>
>
> what do the below actually do? they look like dutch to me
> $VisaCard = /^4\d{
cond won't match that.
-Original Message-
From: Darren Simpson [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 07, 2002 11:17 AM
To: Perl List
Subject: RE: simple question
what do the below actually do? they look like dutch to me
$VisaCard = /^4\d{15}/;
$BankCard = /^(6565\d{12
what do the below actually do? they look like dutch to me
$VisaCard = /^4\d{15}/;
$BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Stuart Clark wrote:
> Hi all,
> Can anyone help please?
>
> # example values
> $Charge = "55";
> $CreditCard = "423452345654532";
>
>
> $VisaCard = /^4\d{15}/;
> $BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
The regular expressions will try to match the contents of $_ here. From your
previ
On Fri, Feb 08, 2002 at 01:44:17AM +1100, Stuart wrote:
> Hi all,
> Can anyone help please?
>
> # example values
> $Charge = "55";
> $CreditCard = "423452345654532";
> $VisaCard = /^4\d{15}/;
> $BankCard = /^(6565\d{12})|(555[10]00\d{10})/;
does something like:
$okayflag = /^4\d{15}/ || /^(6
> "Jonathan" == Jonathan e paton <[EMAIL PROTECTED]> writes:
Jonathan> --- Stuart Clark <[EMAIL PROTECTED]> wrote:
>> How do I replace the letter M with 20 spaces.
>>
>> s/M/\s[20]/; # dosen't seem to work :-(
Jonathan> Hey, how come few seem to have noticed... \s is a CHARACTER
Jonathan>
--- Stuart Clark <[EMAIL PROTECTED]> wrote:
> How do I replace the letter M with 20 spaces.
>
> s/M/\s[20]/; # dosen't seem to work :-(
Hey, how come few seem to have noticed... \s is a CHARACTER
CLASS. This means it represents a group of characters, so
asking for twenty of these on the repla
--- Stuart Clark <[EMAIL PROTECTED]> wrote:
> How do I replace the letter M with 20 spaces.
>
> s/M/\s[20]/; # dosen't seem to work :-(
Hey, how come few seem to have noticed... \s is a CHARACTER
CLASS. This means it represents a group of characters, so
asking for twenty of these on the repla
Stuart Clark wrote:
>How do I replace the letter M with 20 spaces.
>
>s/M/\s[20]/; # dosen't seem to work :-(
>
>Regards
>Stuart Clark
here's my 10c answer ;-)
it seems that a tab \t eq 5 spaces.
s/M/\t\t\t\t/;
On 2/4/02 8:47 PM, Stuart Clark <[EMAIL PROTECTED]> wrote:
> How do I replace the letter M with 20 spaces.
>
> s/M/\s[20]/; # dosen't seem to work :-(
>
> Regards
> Stuart Clark
This should work:
s/M/' ' x 20/e;
Remember that unless you use the 'i' (case-Insensitivity) option on the
regex, y
uart Clark
Subject: Re: simple question
try this:
$string =~ s/M/\s{20}/; ### instead of using square brackets, use curly
ones.
if that doesn't work, try this:
$string =~ s/M/ {20}/;
But the first one should work.
Let me know if that works.
-
I placed as :
$_ ='NMn';
s/M/sprintf " "x20/e;
printf "%-s\n", $_;
Output:
Nn
One way.
Wags ;)
-Original Message-
From: Stuart Clark [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 04, 2002 20:47
To: Perl List
Subject: simple quest
hi,
possibly u cud have a scalar containing 20 spaces...and search and
replace...
whas say ??
regs,
sachin balsekar.
Stuart Clark wrote:
>How do I replace the letter M with 20 spaces.
>
>s/M/\s[20]/; # dosen't seem to work :-(
>
>Regards
>Stuart Clark
>
>
--
To unsubscribe, e-mail: [
At 01:00 11.26.2001 -0500, Jim Conner wrote:
>At 15:25 11.26.2001 +1030, Daniel Falkenberg wrote:
>>Hey all,
>>
>>Just a simple question could some one give me a clue as to what the
>>folling regex will match...
>>
>>$user = "daniel";
>>
>>if ( $test =~ /^$user/ ) {
>>print "Hello world!\n
At 15:25 11.26.2001 +1030, Daniel Falkenberg wrote:
>Hey all,
>
>Just a simple question could some one give me a clue as to what the
>folling regex will match...
>
>$user = "daniel";
>
>if ( $test =~ /^$user/ ) {
>print "Hello world!\n";
>}
Hrm. The regex is comparing a variable called $
On Nov 26, Sidharth Malhotra said:
>It will only match anything beginning with "daniel": "daniel",
>"daniella", "danielson", "daniel smith"
>If you specifically want to match only "daniel" try:
>/^$user$/
But there's no reason to use a regex for that. Please read my recent
document on thi
No problem.
Thanks for you help.
Dan
-Original Message-
From: Ahmed Moustafa Ibrahim Ahmed [mailto:[EMAIL PROTECTED]]
Sent: Monday, 26 November 2001 3:35 PM
To: [EMAIL PROTECTED]
Subject: Re: Simple question
Sidharth's reply is correct. Mine is not. Sorry for that.
Ahmed Mou
Sidharth's reply is correct. Mine is not. Sorry for that.
Ahmed Moustafa Ibrahim Ahmed wrote:
> It will match only "daniel". It's the same as: if ($test eq $user).
> Regards,
> Ahmed
>
> Daniel Falkenberg wrote:
>
>> Hey all,
>>
>> Just a simple question could some one give me a clue as to wha
It will match only "daniel". It's the same as: if ($test eq $user).
Regards,
Ahmed
Daniel Falkenberg wrote:
> Hey all,
>
> Just a simple question could some one give me a clue as to what the
> folling regex will match...
>
> $user = "daniel";
>
> if ( $test =~ /^$user/ ) {
>print "Hel
It will only match anything beginning with "daniel": "daniel",
"daniella", "danielson", "daniel smith"
If you specifically want to match only "daniel" try:
/^$user$/
Hth. Sid.
-Original Message-
From: Daniel Falkenberg [mailto:[EMAIL PROTECTED]]
Sent: Sunday, November 25, 2001 11
> "Dissdennon" == Dissdennon stupolsky <[EMAIL PROTECTED]> writes:
Dissdennon> hi
Dissdennon> i have a script like this:
Dissdennon> #!/usr/bin/perl
Dissdennon> open (MOO, "loo");
Dissdennon>while ()
Dissdennon> {
Dissdennon>s/moo/foo/g;
Dissdennon>}
Dissdennon> what i'm
Both worked great, thanks! I used the latter to make the resulting code
easier to read. I knew it was something simple like that!
-Ryan
"Robert Citek" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
>
> Hello Ryan,
>
> Replace this line:
> $body=~[what goes
Hello Ryan,
Replace this line:
$body=~[what goes here?]
with this:
$body=~ s/\n/\n/g;
or this:
$body=~ s/\n//g;
Do either of these do what you intend?
Regards,
- Robert
-
At 04:44 PM 9/7/2001 -0700, Ryan Kane wrote:
[...]
>from the script:
>--
>#!/usr/lo
I think you mean d'oh ;-)
http://www.snpp.com/guides/lisa-2.html#Q16
which is in the OED btw:
http://europe.cnn.com/2001/WORLD/europe/06/14/english.newwords/index.html
;-)
> d-oh
> > --- Guilherme Pinto <[EMAIL PROTECTED]> wrote:
> > > while ( and $_ =! /End of list/)
> >
> > I think you mea
On Wed, Jul 11, 2001 at 04:26:37PM -0300, Sebadamus wrote:
> Does anybody knows why I cant make this to work as I want? :-)
>
> while ( and $_!=~/End of list/)
while (defined($_ = <>) && !/End of list/) {
There are various problems with your original:
- while () is the only syntax that
a
bla
bla
}
-Original Message-
From: Guilherme Pinto [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, July 11, 2001 2:12 PM
To: 'Sebadamus'; [EMAIL PROTECTED]
Subject: RE: Simple question about "whiles" and files...
while ( and $_ =! /End of list/)
Try
On Wed, 11 Jul 2001, Sebadamus wrote:
> Does anybody knows why I cant make this to work as I want? :-)
>
> while ( and $_!=~/End of list/)
> {
> bla
> bla
> bla
> }
>
> So, with this I want to process the file in until EOF, and each line
> must be distinct than "/End of list/". So,
d-oh
> -Original Message-
> From: Paul [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, July 11, 2001 12:18 PM
> To: Guilherme Pinto; 'Sebadamus'; [EMAIL PROTECTED]
> Subject: RE: Simple question about "whiles" and files...
>
>
>
> --- Guilh
--- Guilherme Pinto <[EMAIL PROTECTED]> wrote:
> while ( and $_ =! /End of list/)
I think you mean !~
__
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/
while ( and $_ =! /End of list/)
Try that...
> -Original Message-
> From: Sebadamus [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, July 11, 2001 12:27 PM
> To: [EMAIL PROTECTED]
> Subject: Simple question about "whiles" and files...
>
>
> Does anybody knows why I cant make this to work
--- [EMAIL PROTECTED] wrote:
> Could someone please explain the use of -> and => as in following
> example?
> (A poor Windows user ... )
lol
> $file = "/home/images/$name";
> open(IMAGE, ">$file") || die "unable to open filehandle $file \n";
> $saveres = $ua->request(HTTP::Request->new(G
Hi Jack
Please refer to my program 'Simple Mail Client' under code section
on www.perlmonks.org it will takes care of mail header and will allow you
to work with mail body. Do let me know if it helped you ... I am working
on the update.
Regards
Joel
Jamnet
Monk
www.perlmonks.org
At 02:30 PM 6/
At 17:25 2001.05.29 -0400, [EMAIL PROTECTED] wrote:
>Hi All,
> I am working on the following output.
>
>* /ebppvobstore/vobs/Core /ebppvobstore/vobs/aci.vbs public
>* /ebppvobstore/vobs/UCMCQ /ebppvobstore/vobs/UCMCQ.vbs public (ucmvob)
> /ebppvobstore/vobs/Comp_Care /ebppvobstore/vobs/C
Not 100% sure, but $check[0] will never equal " " due to your split command..
At 05:25 PM 5/29/2001 -0400, [EMAIL PROTECTED] wrote:
>Hi All,
> I am working on the following output.
>
>* /ebppvobstore/vobs/Core /ebppvobstore/vobs/aci.vbs public
>* /ebppvobstore/vobs/UCMCQ /ebppvobstore/vo
On Tue, May 29, 2001 at 05:25:18PM -0400, [EMAIL PROTECTED] wrote:
>
>
> Hi All,
> I am working on the following output.
>
> * /ebppvobstore/vobs/Core /ebppvobstore/vobs/aci.vbs public
> * /ebppvobstore/vobs/UCMCQ /ebppvobstore/vobs/UCMCQ.vbs public (ucmvob)
> /ebppvobstore/vobs/Comp_Ca
--- Peter Cornelius <[EMAIL PROTECTED]> wrote:
> Dooh! Youre never gonna have a space here. You split on all spaces
> so they were consumed. I think you want '' instead.
> Or maybe ($check[0] eq '*')
> if it's really the '*' you're interested in.
Or if simple is clean enough in this case, ju
> I am working on the following output.
>
> * /ebppvobstore/vobs/Core /ebppvobstore/vobs/aci.vbs public
> * /ebppvobstore/vobs/UCMCQ /ebppvobstore/vobs/UCMCQ.vbs
> public (ucmvob)
> /ebppvobstore/vobs/Comp_Care
> /ebppvobstore/vobs/Comp_Care.vbs/ public
The above is what comes out of `
73 matches
Mail list logo
