Greetings All,
i m creating a session storing the loging credentials. i want to
access that data later after crossing two pages.i have created the
sesion but i could not get the data back some where i m going wrong
can u point me where ..
my first first file getting the login credentials
On Monday 10 December 2007 21:50, John Jack wrote:
Hi Group
Hello,
I'm new to perl and haven't used it before. I'm still practising and
trying my best to know it. Anyway, I wanted to print the list of
files in a directory with their full pathnames. This script below
worked fine but I want
On Dec 11, 2007 2:10 AM, patmarbidon [EMAIL PROTECTED] wrote:
Patrick Marion has written:
I think that your 'close (OUTPUT)' is inside the sub 'pits'
you might put it before 'sub pits {' to get it at the logiccal end of
your program.
snip
Or remove the close completely. Perl closes all open
Using perldoc -q tail
leading to
perldoc -f seek
perldoc -f tell
I'm not getting how to use those functions. Partly because what
passes for examples in those docs doesn't use normal language, instead
they use terms like WHENCE, something that's almost never used in
normal language. When WHERE
i hope i can clarify what whence means:
snip
For WHENCE you may use the constants SEEK_SET, SEEK_CUR, and
SEEK_END (start of the file, current position, end of the file)
from the Fcntl module.
snip
whence descripes from where you start counting bytes:
if you use SEEK_SET
On Dec 11, 2007 1:22 PM, [EMAIL PROTECTED] wrote:
Using perldoc -q tail
leading to
perldoc -f seek
perldoc -f tell
I'm not getting how to use those functions. Partly because what
passes for examples in those docs doesn't use normal language, instead
they use terms like WHENCE, something
On Dec 11, 2007 2:28 PM, Chas. Owens [EMAIL PROTECTED] wrote:
snip
Whence is actually proper English. You may not here it often, but
snip
Hear, not here. See what I mean about declining standards?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Dec 11, 1:22 pm, [EMAIL PROTECTED] wrote:
Using perldoc -q tail
leading to
perldoc -f seek
perldoc -f tell
I'm not getting how to use those functions.
There's a lot of things you're not getting, actually...
for (;;) {
for ($curpos =
On Tue, 11 Dec 2007 14:28:01 -0500
Chas. Owens [EMAIL PROTECTED] wrote:
The seek function has three ways of measuring what the second argument means:
0: move relative the beginning of the file
1: move relative to the current position in the file
2: move relative to the end of the file
Where
On Dec 11, 2007 2:32 PM, Martin Barth [EMAIL PROTECTED] wrote:
On Tue, 11 Dec 2007 14:28:01 -0500
Chas. Owens [EMAIL PROTECTED] wrote:
The seek function has three ways of measuring what the second argument
means:
0: move relative the beginning of the file
1: move relative to the
ahh I am sorry! all my fault!
I didn't see that line and I started searching for the meaning of WHENCE after
the Constants are explained.
oups! Regards.
Martin
On Tue, 11 Dec 2007 14:40:24 -0500
Chas. Owens [EMAIL PROTECTED] wrote:
On Dec 11, 2007 2:32 PM, Martin Barth [EMAIL PROTECTED]
Paul Lalli [EMAIL PROTECTED] writes:
Read
perldoc -f open
for how to open a file in read/write mode.
Always amazes me when someone so taken with themselves as you seem to
be finds time to write a lengthy point by point rebuttal to a
non-debating post but fails to SHOW where the code is
On Tuesday 11 December 2007 10:22, [EMAIL PROTECTED] wrote:
Using perldoc -q tail
leading to
perldoc -f seek
perldoc -f tell
I'm not getting how to use those functions. Partly because what
passes for examples in those docs doesn't use normal language,
instead they use terms like WHENCE,
I have the following code:
$MyFTP-put($MyFtpFromFile , $MyFtpToFile );
if ( ! $MyFTP-ok() ) {
.
}
On my audit log:
Net::FTP=GLOB(0x19c30c0) 125-Waiting for recall of data set
FTPTRGP.AMPD0407
Net::FTP=GLOB(0x19c30c0): Timeout at /d/src/pl545.pl
John W.Krahn [EMAIL PROTECTED] writes:
man 2 lseek
[ SNIP ]
NOTES
This document's use of whence is incorrect English, but
maintained for historical reasons.
OK, I see how having used WHERE in the perldoc stuff would be out of
step with what its all based on.
Even here
On Dec 11, 3:21 pm, [EMAIL PROTECTED] wrote:
Whiners are just not worth the effort. Might have done well to just
hold your tongue right along. Its puzzling why you didn't.
You just answered your own question. I didn't bother giving you any
explicit advice because half of your post was
On Tue, 11 Dec 2007 12:05:13 -0800
John W.Krahn [EMAIL PROTECTED] wrote:
[snip]
This shows the influence that the C programming language has on Perl.
for (;;) { ... } is used in C for an infinite loop. In Perl you could
also write that as while (1) { ... }.
Minor quibble: 'while (1) {
On Tue, Dec 11, 2007 at 02:57:02PM -0600, [EMAIL PROTECTED] wrote:
John W.Krahn [EMAIL PROTECTED] writes:
Perl programmers usually frown on the use of CamelCase variable names.
Do you know wy perl programmers prefer same case variable names?
I suspect the answer to that is to be found in
John W.Krahn [EMAIL PROTECTED] writes:
use Fcntl ':seek';
seek FILE, -100, SEEK_END or die Cannot seek on './myfile' $!;
Still seeing something I don't understand. Using a working version of
the code I posted (included at the end) telling seek to go to 100
bytes before the byte count at eof.
On Tuesday 11 December 2007 12:57, [EMAIL PROTECTED] wrote:
John W.Krahn [EMAIL PROTECTED] writes:
Perl programmers usually frown on the use of CamelCase variable
names.
Do you know wy perl programmers prefer same case variable names?
That is not what I said. In any case, see:
perldoc
On Tuesday 11 December 2007 14:09, [EMAIL PROTECTED] wrote:
John W.Krahn [EMAIL PROTECTED] writes:
use Fcntl ':seek';
seek FILE, -100, SEEK_END or die Cannot seek on './myfile' $!;
Still seeing something I don't understand. Using a working version
of the code I posted (included at
On 12/11/07, Wagner, David --- Senior Programmer Analyst --- WGO
[EMAIL PROTECTED] wrote:
I have the following code:
$MyFTP-put($MyFtpFromFile , $MyFtpToFile );
if ( ! $MyFTP-ok() ) {
Are you using Net::FTP? Does your version of the documentation for
Net::FTP mention an ok()
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Tom Phoenix
Sent: Tuesday, December 11, 2007 15:07
To: Wagner, David --- Senior Programmer Analyst --- WGO
Cc: beginners@perl.org
Subject: Re: timeout in ftp
On 12/11/07, Wagner, David --- Senior
Give a disk sequence know that is incrementing with base 16, such
as ,
0001
0003
0004
0008
0009
000A
000B
000F
0010
0011
how do I extract the a subset that is have at least 4 consecutives,
such as 0008 0009 000A 000B
thanks. Jason
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
On Dec 11, 2007, at 9:53 PM, ciwei2103 wrote:
Give a disk sequence know that is incrementing with base 16, such
as ,
0001
0003
0004
0008
0009
000A
000B
000F
0010
0011
how do I extract the a subset that is have at least 4 consecutives,
such as 0008 0009 000A 000B
I hope this has to do
From: [EMAIL PROTECTED]
Using perldoc -q tail
leading to
perldoc -f seek
perldoc -f tell
I'm not getting how to use those functions. Partly because what
passes for examples in those docs doesn't use normal language, instead
they use terms like WHENCE, something that's almost never used
John W.Krahn [EMAIL PROTECTED] writes:
On Tuesday 11 December 2007 14:09, [EMAIL PROTECTED] wrote:
John W.Krahn [EMAIL PROTECTED] writes:
use Fcntl ':seek';
seek FILE, -100, SEEK_END or die Cannot seek on './myfile' $!;
Still seeing something I don't understand. Using a working
On Dec 11, 2007, at 9:53 PM, ciwei2103 wrote:
Give a disk sequence know that is incrementing with base 16, such
as ,
0001
0003
0004
0008
0009
000A
000B
000F
0010
0011
how do I extract the a subset that is have at least 4 consecutives,
such as 0008 0009 000A 000B
Sorry, the previous code
On Tuesday 11 December 2007 15:53, [EMAIL PROTECTED] wrote:
John W.Krahn [EMAIL PROTECTED] writes:
On Tuesday 11 December 2007 14:09, [EMAIL PROTECTED] wrote:
John W.Krahn [EMAIL PROTECTED] writes:
use Fcntl ':seek';
seek FILE, -100, SEEK_END or die Cannot seek on './myfile'
Hi everyone.
I d like to have u guys input about my code. Im writing a perl script that
would generate some primers. my input file calles output.txt ) was generated
from primer3.
if u guys can take a look at my script and tell me what u detect that needs
to be correcte/ or something that
The built in join() function sounds like what you want.
Read up on it here:
http://perldoc.perl.org/functions/join.html
$output = join(\n, @array);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Hi All,
I have some string stored in array as follows.
@array=(dadsad,assasd) Now if i print this array then it is printing as
dadsad,assasd
Now i want output like
dadsad
assasd
so i did
for (@array) {
print $_,\n;
}
My query is that can i store the output of this for loop in
John W.Krahn [EMAIL PROTECTED] writes:
After the module name, which has to be a bareword, must follow a
*list*, which cannot be barewords.
My post had a typo in it .. again:
use Fcntl ':seek'; it should have said and in fact is how I have been
experimenting with it.
I'm not sure what I did
--- Sayed, Irfan (Irfan) [EMAIL PROTECTED] wrote:
My query is that can i store the output of this for loop in
variable or
list. so that if i print the content of that variable or array then
it
should print as
dadsad
assasd
You can add a \n (or \r\n on windows,etc) at the end of
34 matches
Mail list logo