- Original Message -
From: "Christopher D.Lewis" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, December 02, 2002 8:34 PM
Subject: Re: a Bug in PERL
> Perhaps what the user intends is a WHILE loop.
>
> while (@lastnotpop)
> {
> $current_element = pop(@l
- Original Message -
From: "Paul Johnson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, December 02, 2002 5:01 PM
Subject: Re: a Bug in PERL
>
> PRADEEP GOEL said:
> > If i am not wrong somewhere , there is a bug come to my notice , in PERL
> >
> > @la
Hi, Andrew F.,
2002-12-03 13:48:40
I think this may because your buffered output.
You can use the following to set output unbuffered/flushed before your first
statement in your program.
select((select(STDOUT), $| = 1)[0]);
==
Hi, LRMK, 2002-12-03
10:52:27
I think it is not your fault. Maybe you used a browser which can't support virtual
domains,
like lynx.
The browser should send
GET http://domain.com/filename HTTP/1.x
or
GET /filename HTTP/1.1
By default, Perl buffers the output to STDOUT. Try setting the $| variable
to 1.
-Original Message-
From: Andrew F. [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 6:02 PM
To: [EMAIL PROTECTED]
Subject: Joining with a basic question
Hello all. My name is Andrew.
I migh
Hello all. My name is Andrew.
I might as well get right to it. I'm writing a real basic script, since I'm still
learning Perl. It looks like this:
print "Input a name: "; #Prompt for a name
sleep .5;
$name1 = ;#User input
print "\nInput anot
[EMAIL PROTECTED] wrote:
>
> Hello,
Hello,
> I'm on a unix system and I want to query a ph nameserver to get some
> information. I know that I can have unix do it for me with backticks
>
> $name = `ph email = [EMAIL PROTECTED] return name`;
>
> this will return text to $name
>
>
On Mon, 2002-12-02 at 12:42, [EMAIL PROTECTED] wrote:
>
> Are backticks bad, and if so what are the alternatives if I need to
> return information to a variable?
They're not as "cross platform" as using pure Perl, but that's not
always possible (or at least easy) so sometimes it's "better" to u
Hi-
A quick look at CPAN didn't reveal any modules that
would do your queries (you might try too :)
Backtics GOOD. You should be able to run your unix script
almost as is in a perl script - looks like the easy way out.
Aloha => Beau.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[E
This may help, P3P::ToCP - Perl module to convert P3P policies into CP
representation:
http://2shortplanks.com/temp/P3P_ToCP.html
http://twoshortplanks.com/temp/P3P-ToCP-0.02.tar.gz
Regards,
Dave
-Original Message-
From: Davide Copelli [mailto:[EMAIL PROTECTED]]
Sent: Monday, Decemb
Hello,
I'm on a unix system and I want to query a ph nameserver to get some
information. I know that I can have unix do it for me with backticks
$name = `ph email = [EMAIL PROTECTED] return name`;
this will return text to $name
name: Cinco, Aaron
I would like to thank everyone for their help.
Ollie
-Original Message-
From: Boris Zentner [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 2:56 PM
To: File Send
Subject: Re: Perl types?
Hi,
Am Montag, 2. Dezember 2002 20:25 hast Du geschrieben:
> I'll try that. To answer y
File Send wrote:
>
> I'll try that. To answer your question I'm using
> @settings = split /,/, $_;
> to set up my array.
chomp;
my $signon = ( split /,/ )[3];
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTE
That worked! thanks!
-Original Message-
From: Tanton Gibbs [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 2:20 PM
To: File Send; [EMAIL PROTECTED]
Subject: Re: Perl types?
I'm not sure how you read in the fields, but the last one probably has a
newline appended to it.
You sh
I'll try that. To answer your question I'm using
@settings = split /,/, $_;
to set up my array.
-Original Message-
From: Tanton Gibbs [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 2:20 PM
To: File Send; [EMAIL PROTECTED]
Subject: Re: Perl types?
I'm not sure how you read i
Hi -
Should be the same. The only thing I can think of
is that there is a LF character in your 4th (and
last) field in the line.
Try chomp on the line before you move it to
the array ans see what happens then.
Aloha => Beau.
-Original Message-
From: File Send [mailto:[EMAIL PROTECTED]]
I'm not sure how you read in the fields, but the last one probably has a
newline appended to it.
You should
chomp( $settings[3] );
before you use it.
- Original Message -
From: "File Send" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, December 02, 2002 2:16 PM
Subject: Perl type
Hello,
I am hoping to get some help solving a problem I am having with what I am
assuming is only a problem for me due to my ignorance when it comes to perl
data types. I have a script that reads some information from a comma
separated file. The file contains 4 fields. The last field is the one
Hy there.
I'm having problemas installing perl 5.6.1 (source) on HP-UX 11.00
When I did my first "make" I got the following error:
Bad character > (octal 76), line 679Make: . Stop.
I thought it could be because of the "make" binary, so I installed the
"gmake" depot
and got the following
HTTP/1.1 requires that all Internet request messages have a Host header
field which specifies the host ( and, optionally the port number ) of the
requested resource. The request will therefore look something like:
GET / HTTP/1.1
Host: www.perl.org
HTH,
Rob
- Original Message -
From: "
$check=1;
while($check){
check the time;
set $check to 0 when the time is right to exit
}
but this will make your program little slow because it check time in each
round
send if others have better ideas
- Original Message -
From: "david" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sen
I wrote a http server in perl to handle
GET request from browser
but browsers only send
GET folder\filename HTTP X.Y
request to the server
how do i find which domain name that the user typed in the Address field. to implement
hosts.
actually i just want to know how to do it my server will not
I wrote a http server in perl to handle
GET request from browser
but browsers only send
GET folder\filename HTTP X.Y
request to the server
how do i find which domain name that the user typed in the Address field. to implement
hosts.
actually i just want to know how to do it my server will not
Perhaps what the user intends is a WHILE loop.
while (@lastnotpop)
{
$current_element = pop(@lastnotpop);
print "Just Popped $current_element\n";
}
This does what you want via pop. For a while loop, leave the array as
it is, and just iterate through it.
Enjoy,
Chris
On Monday, December 2, 200
Hello,
can someone tells me how to send a compact P3P policy with perl ?
I have tried to use :
print "policyref=\"http://www.thedomain.com/w3c/p3p.xml\";, P3P: CP=\"NOI ADM DEV PSAi
COM
NAV OUR OTRo STP IND DEM\"\n\n";
Dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional command
The definition of a hash requires that all keys are unique. To use a
hash the way you want, you may need to make the value for the key
"Acorn Drive" a pointer to an array containing the data you intend [A,
B, ...]. You can use an "anonymous" array to hold the data you want.
(This is what the
From: Ramprasad A Padmanabhan <[EMAIL PROTECTED]>
> Do not try to parse a csv yourself from the scratch use
> Text::ParseWords to convert every line to an array
I believe you meant Text::CSV or Text::CSV_XS.
Text::ParseWords is for shell-like parsing.
From: Ben Crane <[EMAIL PROTECTED]>
> But my
If I understand correctly what you are trying to do can't be done with "normal"
hashes. Normally a hash can contain only one value for each unique key, and therefore
you overwrite the value each time you assign a value to a particular key. So you have
two obvious options (in other words that I
Oh Ben,
Hash keys MUST be unique!
If you say something like:
Acorn Drive => A
Acorn Drive => B
Acorn Drive will have the value B (the last
one overwrites to previous).
What you may need is a hash of arrays:
Acorn Drive => ['A', 'B',]
Aloha => Beau.
-Original Message-
From: Ben Crane
Hi,
a slight change to the previous mail: if I've got a
key (e.g. A, and I have 3 or 4 keys (which are all A)
which correspond to different data...
e.g. Acorn Drive is a key, but there are several parts
the make up Acorn Drive...I want a key (Acorn drive)
to be able to refer to EVERY part of it..
Rajanikanth Dandamudi wrote:
> Hi,
>
> I am planning to get the coverage of a file by name program_1.pl .
> This program_1.pl dynamically loads a c module defined in program_1.so
> . This program_1.so is a 64 bit ELF shared library and the perl
> available in the standard location is a 32-bit perl
Rajanikanth Dandamudi said:
> Hai
>
> I am planning to get the coverage of a file by name program_1.pl . This
> program_1.pl dynamically loads a c module defined in program_1.so . This
> program_1.so is a 64 bit ELF shared library and the perl available in
> the standard location is a 32-bit perl.
Do not try to parse a csv yourself from the scratch use Text::ParseWords
to convert every line to an array
Using hashes you can do lot of manipulations better than arrays but I
can not comment unless I cn see your requirement
Ben Crane wrote:
Hi all,
I have to convert a standard CSV file (n
Hai
I am planning to get the coverage of a file by name program_1.pl . This
program_1.pl dynamically loads a c module defined in program_1.so . This
program_1.so is a 64 bit ELF shared library and the perl available in
the standard location is a 32-bit perl.
So I had downloaded the perl v5.8.0 fr
Hi,
%arb=();
foreach(@contents)
{
$fnd{$_}=1;
}
@unique=keys %arb;
this gets unique values from an array...but I want to
find unique records BASED on one column!.
e.g. if a CSV contains road_name, road_number, etc.
and I want to just check for unique values for
road_name.
how do i do that, as
Hi,
%arb=();
foreach(@contents)
{
$fnd{$_}=1;
}
@unique=keys %arb;
this gets unique values from an array...but I want to
find unique records BASED on one column!.
e.g. if a CSV contains road_name, road_number, etc.
and I want to just check for unique values for
road_name.
how do i do that, as
PRADEEP GOEL said:
> If i am not wrong somewhere , there is a bug come to my notice , in PERL
>
> @lastnotpop = ("where_gone_me","remaining_is_alright","no_fear_now");
> foreach $faltu (@lastnotpop) #$faltu is extra doesn't makes difference
> even if removed
> { $pch = pop(@lastnotpop );
> print
Hi all,
I have to convert a standard CSV file (nothing
special) into a specific custom-defined format...now,
I've decided to do it in perl because perl is just
lovely with txt files. But my one question is, since
I'm reading a line from an array (which has the
contents of the CSV in it) and perfor
If i am not wrong somewhere , there is a bug come to my notice , in PERL
@lastnotpop = ("where_gone_me","remaining_is_alright","no_fear_now");
foreach $faltu (@lastnotpop) #$faltu is extra doesn't makes difference even
if removed
{ $pch = pop(@lastnotpop );
print " \n can't pop last one from @
Hey guys,
I got a script that uses Net::SCP. When ever I use it in the script it
prints to stdout.
I have other parts of the script where I use print statments to
describe what part of the script is being executed.
Is there a way to suppress the Net::SCP stdout messages but keep my
normal pr
From: "John W. Krahn" <[EMAIL PROTECTED]>
> Jenda Krynicky wrote:
> > Let's write it as an ordinary program:
> >
> > #!perl -w
> > use strict;
> >
> > sub CleanupLog {
> > my ($from_file, $to_file) = @_;
> > open my $IN, '< ' . $from_file
>
> Since you are using lexically scoped file han
Colin
Removing some of the trees so that the wood is visible:
if ($screenOutput)
{
open (IN, "< $locationResponsePageSkin") or die("Cannot open: $!");
while()
{
s//$screenOutput/;
print;
}
close IN;
}
HTH,
Rob
- Or
Wow - you're in luck!
Send a blank message to:
[EMAIL PROTECTED]
and you will receive instructions on how to get
CPAN modules via email.
If you still need help, please contact me.
Aloha => Beau.
-Original Message-
From: Ramprasad A Padmanabhan [mailto:[EMAIL PROTECTED]]
Sent: Sunday,
43 matches
Mail list logo
