George P. said:
> On Mon, 3 Mar 2003, Scott R. Godin wrote:
>
>>
>> my @scores;
>> my @files = glob "/home/johann/smail/Spam/*";
>> foreach my $file (@files) {
>> open(IN, "<", $file) or die "Cannot open file $file: $!";
>> while () {
>> next unless /^Subject:/;
>>
On Tue, 4 Mar 2003, Paul Johnson wrote:
>
> George P. said:
>
> > On Mon, 3 Mar 2003, Scott R. Godin wrote:
> >
> >>
> >> my @scores;
> >> my @files = glob "/home/johann/smail/Spam/*";
> >> foreach my $file (@files) {
> >> open(IN, "<", $file) or die "Cannot open file $file: $!";
> >>
Hallo
What is the maximum number of charecters in a string?
$A=123456789
Lou
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi Diego
Diego Aguirre wrote:
> Hello,
> I have just learned opening and reading a file, with
>
> open (HoyIn,"File.txt");
Filehandles are traditionally all upper case, as:
open (HOYIN, "File.txt");
> @rgstr=;
This puts the <> operator into list context, so it will read
all of the file, p
Hi.
I think the list is missing a post or two in this thread?
Anadi Taylor wrote:
> > From: "Luinrandir Hernsen" <[EMAIL PROTECTED]>
> > To: "Anadi Taylor" <[EMAIL PROTECTED]>
> > Subject: Re: please please comfirm (was Parsing variables)
> > Date: Mon, 3 Mar 2003 18:53:19 -0500
> >
> > > I migh
On Mon, 3 Mar 2003, Deb wrote:
> Here's the modified script. I made some changes, as suggested, but there
> was no change in the output. I've included my entire script. My head is
> getting mighty flat from banging it against the wall. Oh, and I added "use
> warnings;" and I haven't got a clu
Luinrandir Hernsen wrote:
> Hallo
> What is the maximum number of charecters in a string?
> $A=123456789
It's hower big a number a 'size_t' value can hold under the
C compiler that built your Perl. This is usually an 'unsigned int'
which, if it is 32 bits int, has a limit of just over 4 bi
On Tue, 4 Mar 2003, Sudarshan Raghavan wrote:
> The problem is with the last \s+, when you are parsing the final tuple
> $rest contains this '-h ten-me-900'. Due to the final \s+ the above regex
> will not match. This leaves $opt, $arg and $newRest as undefined. Change
> the final \s+ to \s* an
John W. Krahn wrote:
> "Scott R. Godin" wrote:
>>
>> use Quantum::Superpositions;
>>
>> my @notinarray1 =
>> map { $_ }
> ^^
>
>> eigenstates( any(@Array2) ne all(@Array1) );
>>
>> my @notinarray2 =
>> map { $_ }
> ^^
>
>> ei
George P. wrote:
> I noticed that you've said
> "open () or die()"
> and
> "close() or die()"
>
> If open fails, the program will kill itself, so the close function
> will never be called.
> Therefore there is no need to say "close() or die()"
not true.
> You've done it thrice in this email, so
George P. wrote:
[snip]
>> > I noticed that you've said
>> > "open () or die()"
>> > and
>> > "close() or die()"
>> >
>> > If open fails, the program will kill itself, so
>> > the close function will never be called.
>> > Therefore there is no need to say "close() or die()"
>>
>> I don't follow t
Hi Deb. Let me put you out of your misery. It's a shame because
you were s close!
Deb wrote:
>
> Here's the modified script. I made some changes, as suggested, but
> there
> was no change in the output. I've included my entire script. My
> head is getting mighty flat from banging it against
On Tue, 4 Mar 2003, Scott R. Godin wrote:
> George P. wrote:
>
> > I noticed that you've said
> > "open () or die()"
> > and
> > "close() or die()"
> >
> > If open fails, the program will kill itself, so the close function
> > will never be called.
> > Therefore there is no need to say "close()
On Tue, Mar 04, 2003 at 11:24:55AM -, Rob Dixon wrote:
> > @rgstr=;
>
> This puts the <> operator into list context, so it will read
> all of the file, placing separate records into consecutive
> elements of the array. If this is what you want to do, then
> you have finished with the file a
Deb wrote:
>
> John wrote:
> > Did you try the code I posted Friday? (Message-ID: <[EMAIL PROTECTED]>)
>
> Thanks, yes, I did. But, the syntax was new to me, and I've been reading
> up on it. I couldn't really get it to do what I want (see my previous
> post to this one). But, that's probably
Nick Drage wrote:
>
> On Tue, Mar 04, 2003 at 11:24:55AM -, Rob Dixon wrote:
>
> > > @rgstr=;
> >
> > This puts the <> operator into list context, so it will read
> > all of the file, placing separate records into consecutive
> > elements of the array. If this is what you want to do, then
> >
Hi
I'm not entirely sure if this is possible, but I'm going to ask anyway
(after all I'm not an *expert* on perl, you always learn something new).
Is is possible to match:
[EMAIL PROTECTED] with [EMAIL PROTECTED] ?
I've managed to split it up into 3 variables each,
$nicktomatch contains "*"
$ide
Cool thanks. I figured that I just wanted to see if someone
Wiser could verify I'm not nuts.
So no pars means a two character shorter script then,
that's a little something ;p
DMuey
> Hi Dan.
>
> Dan Muey wrote:
> > If you can call a subroutine without parenthesis is that
> faster than
> >
There was a post about pdf to html or txt yesterday.
You might see search.cpan.org to see about modules.
One solution was to use perl to execute an external
prog that would actually translate. Using perl you
could creat a new html file for each pdf file in no
time! You'd just need a module or
Hello,
Is anyone aware of a group similar to this for XML?
__
William Ampeh (x3939)
Federal Reserve Board
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
From: <[EMAIL PROTECTED]>
> Is anyone aware of a group similar to this for XML?
[EMAIL PROTECTED]
I'm sure you'll find the subscription page on
http://www.activestate.com :-)
Jenda
= [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =
When it comes to wine, women and song, wizards are allo
On Tue, 4 Mar 2003 09:34:10 -0500, <[EMAIL PROTECTED]> wrote:
> Hello,
>
> Is anyone aware of a group similar to this for XML?
>
Something tells me this isn't what you are after, but I thought I would post it
anyways:
http://lists.perl.org/sho
Dan Muey wrote:
> Cool thanks. I figured that I just wanted to see if someone
> Wiser could verify I'm not nuts.
Now that's not quite what I said. Go see your therapist ;-)
> So no pars means a two character shorter script then,
> that's a little something ;p
It might even save you some disk spa
Yesterday I posted a question regarding a perl script running under
xinetd on linux. I have received no responses. Perhaps
my question was unclear. I will try to rephrase my problem.
Xinetd listens on a udp port. When it receives a datagram, it forks and
execs my perl code.
The perl code shoul
.--[ [EMAIL PROTECTED] wrote (2003/03/04 at 08:17:01) ]--
|
| Yesterday I posted a question regarding a perl script running under
| xinetd on linux. I have received no responses. Perhaps
| my question was unclear. I will try to rephrase my problem.
|
| Xinetd listens on a u
> Dan Muey wrote:
> > Cool thanks. I figured that I just wanted to see if someone Wiser
> > could verify I'm not nuts.
>
> Now that's not quite what I said. Go see your therapist ;-)
This list is my therapist!!!
>
> > So no pars means a two character shorter script then,
> > that's a little so
Dan wrote:
> Hi
>
> I'm not entirely sure if this is possible, but I'm going to ask anyway
> (after all I'm not an *expert* on perl, you always learn something
> new).
>
> Is is possible to match:
> [EMAIL PROTECTED] with [EMAIL PROTECTED] ?
Hi Dan.
For this particular case you can convert the gl
John W. Krahn <[EMAIL PROTECTED]> had this to say,
> Ok, here it is using the code you posted elsethread.
Much more elegant than mine, but by looking at the output, it's still not
quite right. Note that there really is no -m option.
> After running it I get this output:
>
> direct
>
Aimal Pashtoonmal wrote:
> Hello,
>
> I have three files, for two different cites. The first file contains
> names of men with their faves, in columns. The second file is the same
> but for their partner. The third file is a list of similar partners
> (partner selection based on data fed into a pe
[EMAIL PROTECTED] wrote:
> Yesterday I posted a question regarding a perl script running under
> xinetd on linux. I have received no responses. Perhaps
> my question was unclear. I will try to rephrase my problem.
>
> Xinetd listens on a udp port. When it receives a datagram, it forks and
> e
hi all, its me again !!!
this time I am having trouble with a cookie: i have written a script that
sets a cookie:
use CGI qw/:standard/;
use CGI::Cookie;
## create cookie
my $cookie = new CGI::Cookie(-name=>'ptsbook',-value=>"$membu
> hi all, its me again !!!
>
> this time I am having trouble with a cookie: i have written a
> script that
> sets a cookie:
>
> use CGI qw/:standard/;
> use CGI::Cookie;
>
> ## create cookie
> my $cookie = new
> CGI::Cookie(-name=>'ptsb
Please ignore this meassage - it's a scope problem and I have figured it out
- thanks all anyway !!!
A very tired Anadi
:)
From: "Anadi Taylor" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: cookie help needed
Date: Tue, 04 Mar 2003 19:06:53 +
hi all, its me again !!!
this time I a
sorry to bug ya about this - 1st it was a scope problem - but something you
said here intregues me:
Two ways to test
1) have your script print the value of $membusrname
2) look in your cookies and see if it's there
How do I look @ my cookies ??
Sorry to be a pain
Anadi
I use tlist.exe to get the process id's and kill.exe stop them.
These two comand line apps are available for free from microsoft as part
of the NT4 resource kit and it installs on W2k.
Voodoo Raja wrote:
From: "Voodoo Raja" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: Capture Proc
I'm no expert, but this sounds like a buffering problem. You might want to
read,
http://perl.plover.com/FAQs/Buffering.html
deb
[EMAIL PROTECTED] <[EMAIL PROTECTED]> had this to say,
> Is there an issue running perl under linux xinetd where xinetd is
> listening for connections on a UDP port a
Hello,
I have the script below giving the folowing error meesages.
=>Useless use of string in void context at
extract_data_from_IPR_HMM_libs.pl
line 12.
=>Useless use of a constant in void context at
extract_data_from_IPR_HMM_libs.pl line 13.
Even though the script works and I ge
>
> sorry to bug ya about this - 1st it was a scope problem - but
> something you
> said here intregues me:
>
> >Two ways to test
> >1) have your script print the value of $membusrname
> >2) look in your cookies and see if it's there
>
> How do I look @ my cookies ??
I use Netscape 7. I
For IE go to C:\WINDOWS\Cookies
-rm-
- Original Message -
From: Dan Muey <[EMAIL PROTECTED]>
To: Anadi Taylor <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, March 04, 2003 1:27 PM
Subject: RE: cookie help needed
>
> sorry to bug ya about this - 1st it was a scope problem -
-Original Message-
From: Aimal Pashtoonmal [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 04, 2003 9:40 PM
To: [EMAIL PROTECTED]
Subject: RE: Simple script requires simple soulution
Hello,
I have the script below giving the folowing error meesages.
=>Useless use of string in void cont
Aimal Pashtoonmal wrote:
> Hello,
>
> I have the script below giving the folowing error meesages.
>
> =>Useless use of string in void context at
> extract_data_from_IPR_HMM_libs.pl
> line 12.
> =>Useless use of a constant in void context at
> extract_data_from_IPR_HMM_libs.pl line
I am trying to copy/move files under WinNT from remote server(s) to
a central server using File::Copy --see code snippet below:
snippet begins--
use File::Copy;
..
open (LOGFILE, ">>testlog") or die (print "$! problem opening testlog\n");
print LOGFILE "$date: \n";
print LOGFILE "
On Mon, 03 Mar 2003 09:59:01 -0700, [EMAIL PROTECTED] wrote:
>Is there an issue running perl under linux xinetd where xinetd is
>listening for connections on a UDP port and then forking the following
>perl code. When I do this, the perl code does not see any input on
>STDIN. How does one get at
I think I read the other day that it was unlimited, but I could be wrong (might have
been PHP). Just keep it as short as possible.
>>> "Luinrandir Hernsen" <[EMAIL PROTECTED]> 03/04/03 05:43AM >>>
Hallo
What is the maximum number of charecters in a string?
$A=123456789
Lou
--
To unsub
Not sure about the fulehandle problem but you may want to look at Net::FTP
For transfering file samongst servers. Quite easy to use and fast and all of that.
DMuey
> -Original Message-
> From: Smith Jeff D [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 04, 2003 1:53 PM
> To: '[EMAIL P
Smith Jeff D wrote:
> I am trying to copy/move files under WinNT from remote server(s) to
> a central server using File::Copy --see code snippet below:
>
> snippet begins--
> use File::Copy;
> ..
>
> open (LOGFILE, ">>testlog") or die (print "$! problem opening
> testlog\n"); print
On Tue, 4 Mar 2003 11:51:22 -, [EMAIL PROTECTED] (Rob Dixon)
wrote:
>Luinrandir Hernsen wrote:
>> Hallo
>> What is the maximum number of charecters in a string?
>> $A=123456789
>
>It's hower big a number a 'size_t' value can hold under the
>C compiler that built your Perl. This is usua
Long ago in GW Basic there were sequential files and random access files.
Does perl have the latter? I only to get (and then put) certain info in a certain
place every time.
If I can avoid writing the whole file every time I bet my web site hoster would
appreciate it!
Just point me in a direction
I just did the math
250x300 is the size of the data file
thats only 75,000
- Original Message -
From: Fred Sahakian
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED]
Sent: Tuesday, March 04, 2003 3:05 PM
Subject: Re: Max Len for string in perl???
I think I read the other day th
Luinrandir Hernsen wrote:
> Thank you for your help but I want to learn this too
>
> Here is the code from the HTML GET
First, I am sort of mystified as to why you want to use the GET method. This method
is designed specifically for cases where you want to download the specified file. It
>
> Long ago in GW Basic there were sequential files and random
> access files. Does perl have the latter? I only to get (and
> then put) certain info in a certain place every time. If I
> can avoid writing the whole file every time I bet my web site
Every time what??
I'm not familiar with
.--[ Dan Muey wrote (2003/03/04 at 15:04:30) ]--
|
| > Long ago in GW Basic there were sequential files and random
| > access files. Does perl have the latter? I only to get (and
| > then put) certain info in a certain place every time. If I
| > can avoid writing the whole fil
It is good to learn but parsing input yourself is a bad idea for lots of reasons, like
all of the issues mentioned below.
& or ;
Post or get
Special charcter encoding
How input comes in -> buffer, $ENV var, etcc
When you can have all that just by doing
use CGI qw/:standard/;
Plus you get lots o
Hi Jeff & Wags.
David --- Senior Programmer Analyst --- Wgo Wagner wrote:
> Smith Jeff D wrote:
> > I am trying to copy/move files under WinNT from remote server(s) to
> > a central server using File::Copy --see code snippet below:
> >
> > snippet begins--
> > use File::Copy;
> > ..
> >
>
> .--[ Dan Muey wrote (2003/03/04 at 15:04:30) ]--
> |
> | > Long ago in GW Basic there were sequential files and random
> | > access files. Does perl have the latter? I only to get (and
> | > then put) certain info in a certain place every time. If I
> | > can avoid writing
perldoc -f seek
Probably open() and seek() And all their friends will be your pal then.
DMuey
> the file is 250 variables. each variable is 225 charecters
> long. I only need to look at a 5x5 square of information (25
> charecters, 5 charecters on 5 sequential lines. I am making a
> map file
So my boss just told me that he doesn't like the fact that the "From:"
field in our email database typically looks like:
"BlahBlahBlahBlah From: BlahsvilleDude
<[EMAIL PROTECTED]>BlahBBlahBBlah"
(The "blahs", of course, are not literal, but can be anything.)
He wants the subject field to look
Try this...
my $data = "BlahBlahBlahBlah From: BlahsvilleDude
<[EMAIL PROTECTED]>BlahBBlahBBlah"
$data =~ s/^.*<([^>]*)>.*$/$1/;
Broken down...
s/ = substitute
^ = beginning of string
.* = anything, zero or more times
< = "<"
( = start trapping text
[^>]* = anything but ">", zero or more times
)
Excellent, worked brilliantly. Cheers
Dan
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Dan wrote:
> > Hi
> >
> > I'm not entirely sure if this is possible, but I'm going to ask anyway
> > (after all I'm not an *expert* on perl, you always learn something
> > new).
> >
It was close but what I got is : "JohnDoe.com" Instead of
"[EMAIL PROTECTED]".
I think it has something to do with escaping the "@" sign. I've been
experimenting, but without much luck.
Thanks,
Gregg
On Tuesday, Mar 4, 2003, at 15:31 US/Mountain, Hanson, Rob wrote:
Try this...
my $data =
Hi -
> -Original Message-
> From: Gregg R. Allen [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 04, 2003 2:16 PM
> To: Hanson, Rob
> Cc: Gregg R. Allen; [EMAIL PROTECTED]
> Subject: Re: Simple Regex Problem.
>
>
> It was close but what I got is : "JohnDoe.com" Instead of
> "[EMAIL PROTE
Gregg R . Allen wrote:
> It was close but what I got is : "JohnDoe.com" Instead of
> "[EMAIL PROTECTED]".
>
> I think it has something to do with escaping the "@" sign. I've been
> experimenting, but without much luck.
>
that's because Perl thinks @Someplace is an array. if you have warning
Gregg R. Allen wrote:
> It was close but what I got is : "JohnDoe.com" Instead of
> "[EMAIL PROTECTED]".
>
> I think it has something to do with escaping the "@" sign. I've been
> experimenting, but without much luck.
>
> Thanks,
>
> Gregg
>
>
> On Tuesday, Mar 4, 2003, at 15:31 US/Mountain,
Luinrandir Hernsen wrote:
> Long ago in GW Basic there were sequential files and random access
> files.
Sounds like the start of a bedtime story... :~)
> Does perl have the latter?
Yes. It's really a capability of the underlying operating system.
Perl has seek(), tell(), read(), and write() fun
Sudarshan Raghavan wrote:
> ..
> You are right it is "Good Programming practice" to be defensive. Even though
> I would advocate a "close () or warn ()" instead of a "close () or die ()".
>
> But then again the choice is subjective, but "defensive programming" holds
> always.
I want to second tha
Hi Jeff,
DONT!
Smith Jeff D wrote:
> I am trying to copy/move files under WinNT from remote server(s) to
> a central server using File::Copy --see code snippet below:
>
> snippet begins--
> use File::Copy;
> ..
>
> open (LOGFILE, ">>testlog") or die (print "$! problem opening tes
Hello,
I am writing a script to help a user turn a modem
on and off and adjust the routing tables on a
Linux box. I am trying to call wvdial to do the dialing,
but it does not give control back to my script. I call
it like so
if( $choice == 1){
`wvdial`;
print "connected";
}
I
Bob Showalter wrote:
>
> Luinrandir Hernsen wrote:
> > Long ago in GW Basic there were sequential files and random access
> > files.
>
> Sounds like the start of a bedtime story... :~)
>
> > Does perl have the latter?
>
> Yes. It's really a capability of the underlying operating system.
>
> Pe
Mel,
I agree with the follow up posting on beginners that says this script should not be
run as a CGI. However, just as an FYI, that particular error was being generated by
Apache because you weren't outputting an HTTP content type.
On another issue I see that you cross posted this message acr
Hi,
I have with the help of one of the guys of this list got this script to take
an image from one directory and then rename it with the time and date of the
image and then store it onto a new directory.
I sotred the image in the cgi-bin, and then tried to run the file, i got
errors, when i we
mel awaisi wrote:
Hi,
I have with the help of one of the guys of this list got this script to
take an image from one directory and then rename it with the time and
date of the image and then store it onto a new directory.
I sotred the image in the cgi-bin, and then tried to run the file, i got
71 matches
Mail list logo
