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
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 al
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 wo
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 "SE
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, s
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 PROTECTE
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 = tel
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
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 relati
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 w
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
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.
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
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 whi
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 foun
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 a
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, se
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
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 ---
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 addition
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 wi
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
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 underst
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
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 vari
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 di
--- "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)
33 matches
Mail list logo
