On Thu, Nov 07, 2002 at 01:26:22PM -, dan wrote:
Is there some moderator or something of this board that can delete emails
from the mailing list that haven't been used, or been retrievable, for a
certain amount of time? I think it gets annoying when you post to the
newsgroup, and then get
On Thu, Oct 24, 2002 at 03:24:14PM -0400, Nikola Janceski wrote:
Then I am really confused, how can I cause the scope of $\ to extend only to
the end of the file and not into the other modules??
You can't. However, you might be able to confine your local version of $\
to only those operations
On Thu, Oct 24, 2002 at 10:43:50AM -0700, naveen prabhakar wrote:
Hi,this might be a really silly question.
I might be feeding you a bunch of fish, rather than pointing you to
documentation, so we both might be silly.
what values are considered as uninitialized.how can I avoid this error.
On Thu, Oct 24, 2002 at 02:02:15PM -0400, Nikola Janceski wrote:
local $\ = \n;
now ... isn't local supposed to modify the listed variables to be local to
the enclosing block, file, or eval. ?
[snip]
Am I just misunderstanding the use of local?
Yes, but the documentation
On Thu, Oct 24, 2002 at 05:18:07PM +0530, vinai AR wrote:
1. Is there any functions in perl like GetProfileString( ) and
SetProfileString( ) SDK functions, which are used to access the
windows INI files.
Not built in. The Config::Ini module available on CPAN provides an
interface to
On Wed, Oct 23, 2002 at 01:06:25PM -0400, Smith Jeff D wrote:
[snip]
There was nothing in the documentation that said it wouldn't run
under 5.005 but it recommends 5.6.0. Since I'm running this old Resource
Kit, I want to be sure that I have to upgrade to Perl 5.6 (or 5.8) for this
On Tue, Oct 22, 2002 at 12:49:48PM -0400, Chris Benco wrote:
[snip]
my @output = $session-cmd(
ping
$protocol
$ip
$repeat
$datagram
$timeout
$extended
$sweep
);
[snip]
$session-cmd(Timeout = 3600);
my @output = $session-cmd(
[snip]
my @output =
On Tue, Oct 22, 2002 at 09:22:04AM +0300, Fogle Cpl Shawn B wrote:
my $i = /mnt/disk/sound/high_quality/how_now_brown_cow_ain't_happenin.flac;
if ( /[']/ ) {
link /tmp/tmp_music_file $i;
system flac qq(flac -c -d /tmp/tmp_music_file | rawplay);
}
This is a very crude example (the syntax is
On Tue, Oct 22, 2002 at 10:13:49PM +0200, K Pfeiffer wrote:
My if loop
if isn't a loop, it's a conditional.
didn't work with last so I changed if to while, but it
seems that the redo doesn't cause the while to re-evaluate with the new
value of $destfile.
This is the documented behaviour
On Tue, Oct 22, 2002 at 02:05:25PM -0700, David Newman wrote:
[snip]
I have in input file structured something like this:
*** Iteration 1
data,data,data,data,data
data,data,data,data,data
data,data,data,data,data
*** Iteration 2
data,data,data,data,data
data,data,data,data,data
On Mon, Oct 21, 2002 at 04:32:27PM -0500, Akens, Anthony wrote:
[snip]
It looks like you forgot -w and use strict.
open (NAMES, $namefile)
or print Could not open $namefile $!;
Do you really want to continue and read the file if the open fails?
while(NAMES)
{
($key, $value)
On Fri, Oct 18, 2002 at 10:07:20PM -0400, chris wrote:
Can I use wildcard to create a bigfile?
# cannot open file
perl -pei *.txt bigfile
The line you're using doesn't make any sense. You might need to elaborate
on what exactly you're trying to accomplish. However, if all you're trying
to
On Wed, Oct 16, 2002 at 11:52:44PM +0200, Paul Johnson wrote:
The constructor, then blesses $name into the class Horse, or more
accurately, blesses a reference to $name.
You were right the first time; bless blesses $name. You have to pass a
reference so bless can modify the original variable.
On Thu, Oct 17, 2002 at 03:49:31PM -0700, John W. Krahn wrote:
Michael Fowler wrote:
while (1) {
my $first_in = FIRSTIN;
last unless defined $first_in;
my $second_in = SECONDIN;
last unless defined $second_in;
print FIRSTOUT $first_in
On Wed, Oct 16, 2002 at 05:05:09PM +0200, Reinstein, Shlomo wrote:
Is there a way that I can say in sos.pl that I want to use the module
located in ../modules relative to it?
I've read through this thread and it sounds like you're trying to solve the
wrong problem, or perhaps going at it the
On Wed, Oct 16, 2002 at 03:10:14PM -0600, Brady Fausett wrote:
I recently was reading a posting regarding getting table names and then
retrieving colmn names from another post. I have been trying to make a
perl program that I have written (with DBI) to be more object oriented.
To be able to
On Wed, Oct 16, 2002 at 10:15:12AM -0700, vishal mittal wrote:
my $child = new IO::Handle;
When I try to redirect this handle to a filehandle
using
open(MY_DESCRIPTOR, $child);
$child is already a filehandle, you shouldn't need to redirect it to
another. What is it you're trying to
On Thu, Oct 17, 2002 at 11:27:43AM -0400, [EMAIL PROTECTED] wrote:
I have working code which opens two files (1 read, 1 write), then parses
the text from the file FIRSTIN to a particular format, then prints it to
the FIRSTOUT file.
I need to add to this the capability to open SECONDIN line
On Thu, Oct 17, 2002 at 04:23:12PM +, Robert Thompson wrote:
I have been using DBI::Shell (via dbish) which provides a shell
prompt for interacting with a database and I think I have come
across a bug that I might be able to fix but am having trouble doing
so. I
On Fri, Oct 18, 2002 at 12:32:29PM +1000, Johnstone, Colin wrote:
How do I print out the copywrite symbol to a text file please.
You should realize that the copyright symbol will be different for different
character sets, and it won't exist in all of them. For example, others
suggested using
On Sat, Oct 19, 2002 at 12:35:37AM +0600, Rakhitha Malinda Karunarathne wrote:
Can Any Body Tel me a Logic which can convert a roman number to a normal number
and another one to convert a normal number to a roman number
There's a module on CPAN for this:
On Fri, Oct 18, 2002 at 02:31:26PM -0300, Bruno Oliveira wrote:
this would start top, but then i wouldn't be able to
identify the process in order to kill it. Is there a
way to do this (other than using fork) ?
There may be a module available on CPAN for running a program in the
background and
On Fri, Oct 18, 2002 at 07:33:45PM -0300, Bruno Oliveira wrote:
The only reason why i didn't want to use fork is that then i must by some
process (writing a file, opening a socket, ...), send back the pid to the
parent process, right ?
No, see perldoc -f fork and the examples helpfully
I doubt you expected commentary on your code, but hopefully this will be
helpful to both you and anyone else reading.
On Sat, Oct 19, 2002 at 12:54:18AM +0600, Rakhitha Malinda Karunarathne wrote:
You forgot -w and use strict.
$|=1; #*** Set auto Flush
This sets autoflush
On Tue, Oct 15, 2002 at 10:54:14AM -0400, Chris Benco wrote:
my $From = $Document-GetFirstItem('From')-{Text} or ();
This appears to work. When I run a test the program recovers seemingly
flawlessly. My problem is that the script still dies at some point. When
I come in the next day it
On Sun, Oct 13, 2002 at 07:53:43PM -0500, Wiggins d'Anconia wrote:
You might also try putting package identifiers around the code in which
case when you use a package that has a different name space than the
package with the floaties they probably won't be executed, but this is
where I
On Fri, Oct 11, 2002 at 04:40:30PM +0100, mike wrote:
../build.pl
/root/cvs/esound # this the output of $dir3
/
cannot change No such file or directory at ./build.pl line 13,
BLD_LIST line 55.
this is ls in same directory, as you can see esound is there
I don't have any context for what
On Fri, Oct 11, 2002 at 01:50:53PM -0500, James Edward Gray II wrote:
It's the indirect method call syntax, as far as I understand.
It looks like it, but it isn't. See
http:[EMAIL PROTECTED]/msg33969.html for a recent
discussion on that.
Personally though, I wouldprefer to see your example
On Fri, Oct 11, 2002 at 06:50:00AM +0100, mike wrote:
On Fri, 2002-10-11 at 05:36, Michael Fowler wrote:
On Fri, Oct 11, 2002 at 04:16:41AM +0100, mike wrote:
Unfortunatel chdir does not work
In what way doesn't it work? Are you getting an error? How are you
verifying it doesn't
On Thu, Oct 10, 2002 at 07:19:03PM +0200, Jenda Krynicky wrote:
It's a shame that even in Perl 5.8 one can't do this:
open (IN, '-|', 'cmd','/c','dir');
Well, the feature is there in 5.8.0, it's just not portable. Of course, you
mention the other way to implement that is with a pipe(),
On Thu, Oct 10, 2002 at 08:27:27PM +0200, Jenda Krynicky wrote:
It's the reference that's blessed.
It's the referent that's blessed.
For example:
#!/usr/bin/perl -w
use strict;
my $s= 10;
my $obj1 = \$s;
bless($obj1, Foo);
$obj1-foo();# prints I am foo()
On Thu, Oct 10, 2002 at 10:37:07PM +0200, Thoenen, Peter Mr. EPS wrote:
Never had any real programming classes and as I start to read more and moe
programming books (on Camel now) keep seeing items like malloc(3),
longjmp(3), rintf(3), etc etc.
These are references to man pages on a Unix
On Fri, Oct 11, 2002 at 04:16:41AM +0100, mike wrote:
Unfortunatel chdir does not work
In what way doesn't it work? Are you getting an error? How are you
verifying it doesn't work?
This is the script
#!/usr/bin/perl -ww
open(BLD_LIST,buildlist);
my @pkg=BLD_LIST;
my $ver=$ARGV[2];
On Wed, Oct 09, 2002 at 02:28:58AM -0700, Hello Buddy wrote:
What I am facing now is when I write to format text file, suppose I was
currently in line 10 for my formatted text file and I want to append some
word in line 5 of formatted text file.
Please see perldoc -q line in a file, or
On Wed, Oct 09, 2002 at 08:21:27PM +, P lerenard wrote:
except this one sort by string and not by integer, so 100 is before 99
Do you have an idea to sort that by interger and not by string, 99 before
100?
See perldoc -f sort. It has many fine examples of how to sort various types
of
On Wed, Oct 09, 2002 at 02:16:52PM -0700, nkuipers wrote:
When I first saw this, I worked out the assignment where $a and $b each
get a 7 and the third 7 is discarded, then $x gets the last value in the
list of $a and $b because of the comma operator for list literals in a
scalar context...or
On Thu, Oct 10, 2002 at 12:01:31AM +, Kyle Babich wrote:
%up = {
'kyle' = 123,
'jason' = 123,
'chelsea' = 123,
'john' = 123,
'cheryl' = 123
};
This is your problem. You've constructed an anonymous hash and assigned it
to %up. You should be using parens, not curly braces:
On Wed, Oct 09, 2002 at 07:55:13PM -0700, stanley wrote:
#!/usr/bin/perl -w
does it still throw an exception or do the warnings work?
-w on the shebang or command lines will work with any version of Perl. The
use warnings pragma was added in 5.6.0, and this is why you're getting the
error.
On Tue, Oct 08, 2002 at 09:59:16AM -0700, Jessee Parker wrote:
Is there a way to keep track of the number of open sockets your program
might have that are in a TIME_WAIT (I think it is) state?
The problem is if a socket is in a TIME_WAIT state it's no longer open by
your program. The socket
I just noticed this thread, so forgive me if someone has already mentioned
this, or if I'm missing the original point. I just saw some bad examples of
how to accomplish what the subject asks, and felt I should chime in.
The idiomatic method for checking if an array has elements is simply:
On Thu, Oct 03, 2002 at 05:12:38PM -0700, Jessee Parker wrote:
I will definitely take a look at this. How do you determine what your
current nice status is?
nice, with no arguments, will give you your current nice level. ps and top
will diplay the nice level (or sometimes priority) of
On Thu, Oct 03, 2002 at 03:04:07PM -0400, Rob Das wrote:
Is there a reasonable check for memory I can use to see what's available
compared to the file size?
I don't know of a portable method for checking your memory. However, even
if there were a way, why would you want to go that route? I
On Thu, Oct 03, 2002 at 10:10:34AM -0700, Jessee Parker wrote:
At the top of the loop, I check the system uptime to get the load average
so I can have the program sleep for 5 seconds to let things stabilize a
bit.
I suspect an easier way of doing this would be to nice yourself down really
On Wed, Oct 02, 2002 at 09:06:16AM +0100, [EMAIL PROTECTED] wrote:
when i query a mysql db within a perl script
this works fine...
$sth = $dbh-prepare (SELECT venue from base1 WHERE op = 'K Trevan');
this doesn't..
$sth = $dbh-prepare (SELECT venue from base1 WHERE op = 'K O'Trevan');
i
On Wed, Oct 02, 2002 at 09:25:43AM -0700, nkuipers wrote:
Could you also use quote() for this?
Yes, $dbh-quote() can also be used for quoting strings. I generally don't
suggest it because it's more awkward and makes for less readable code than
placeholders.
Michael
--
Administrator
On Mon, Sep 30, 2002 at 03:50:00PM +0800, [EMAIL PROTECTED] wrote:
I found my mistake: I misread the line number in the error message. DOH!!!
The complaints were related to the block that prints individualized error
messages:
Ok, I'm glad you solved your problem.
CODE
unless (defined
On Tue, Oct 01, 2002 at 10:38:52AM -0500, Lance Prais wrote:
I have one question about you suggestion. From the way it looks you have
Public including all the other partitions.
If the partition is Public the information is appended to all of the
files. This is exactly what your original
On Fri, Sep 27, 2002 at 09:36:41AM -1000, Josh wrote:
I meant that I issued those commands from the command line. So even with
the file owned by nobody and everything is world read/writable I still get
a permission denied error.
What does ls -l on the file output? In your program, what are
On Mon, Sep 30, 2002 at 12:52:47PM +0800, [EMAIL PROTECTED] wrote:
[snip]
unless (defined $directory defined $comment defined $max_rows
defined $max_cols (!defined $saturation || abs($saturation) 100)) {
# Print error messages
}
WHAT'S HAPPENING:
Without setting
On Mon, Sep 30, 2002 at 03:34:10PM -0400, Scot wrote:
Looking to read in mail headers from /var/spool/mqueue/
and load them into an array or hash to filter based on
some rules.
I know there must be a good module out there to do this.
I just want To,From,CC and Subject. given you have
On Mon, Sep 30, 2002 at 02:37:52PM -0500, Lance Prais wrote:
[original code, slightly reformatted]
if ($partition eq Public){
open(PUBLIC_ALERTSFILE,$public_alerts_index_txt_filename);
print PUBLIC_ALERTSFILE$oid. :: .$title. :: ..$partition. ::
.$date\n;
close(PUBLIC_ALERTSFILE)
Others have addressed various other parts of your code, such as why you're
forking twice, what the while loop is for, etc. However, there are a few
things in your code that others haven't addressed.
On Thu, Sep 26, 2002 at 09:20:37AM -0400, chad kellerman wrote:
[snip]
foreach my $usr
On Thu, Sep 26, 2002 at 04:07:20PM +0200, NYIMI Jose (BMB) wrote:
I have a string (ascii).
I would like to apply a rule on it before saving it to a file - coding
... And apply the same rule to get the original string while reading from
the file - decoding ...
Any Idea ?
I don't
On Thu, Sep 26, 2002 at 07:30:37AM -0700, Admin-Stress wrote:
I can use if (scalar(@ARGV) 3) {...} but that not the case.
If the user executes the program like so:
program.pl foo bar
@ARGV will have 2 elements.
If the user executes the program like so:
program.pl
@ARGV will
On Thu, Sep 26, 2002 at 11:16:46AM -1000, Korthrun wrote:
The file name is /usr/local/apache/htdocs/fooness.cfg
The script runs from /usr/local/apache/cgi-bin/add_mrtg.pl
the string I am using is:
system perl -p -i -e 's! END DSL BUSINESS ACCOUNTS
On Thu, Sep 26, 2002 at 03:02:04PM -0700, Matt Simonsen wrote:
I need to move several files
Moving files can be accomplish with rename, perldoc -f rename.
and compress them - what's the preferred way to do this?
It depends on your requirements, there is no single preferred method.
On Tue, Sep 24, 2002 at 07:49:24PM -0300, Bruno Negrao wrote:
#!/usr/bin/perl -w
Where's use strict?
dbmopen(%a,testdb,0666) || die couldn't create/access the file $!;
$a = $b = 0;
until ($a 20){# create items in the testdb.db file
This loop will never run. $a == 0, which is
On Wed, Sep 25, 2002 at 10:23:28AM +0700, Hengky wrote:
i've already using a pop3 like Net::POP3 or even create a open port to
listen.
Net::POP3 is for connecting to a POP3 daemon, and create a open port
sounds like you're trying to write a POP3 daemon. Which is it, are you the
client, or the
On Wed, Sep 25, 2002 at 11:17:18AM -0500, Wagner, David --- Senior Programmer Analyst
--- WGO wrote:
Because the | is part of the regex which allows for (a|b|c| which
says if a or b or c.
Also known as alternation.
So what you have is basically I believe null or null which comes down
On Wed, Sep 25, 2002 at 04:17:57PM -0400, John Almberg wrote:
I'm trying to sort a SQL table that contains a character-type field that
contains mostly numbers. This field always contains either a number or a
number followed by a character. Like '57' or '57a'.
I'd like to sort the table
On Wed, Sep 25, 2002 at 03:34:26PM -0500, James Edward Gray II wrote:
'2.1 Do similar modules already exist in some form?'
[snip]
My newly coded module is a Multiplexed Non-blocking I/O Telnet Server.
It was written with an eye towards serving MUDs, MUSHes, and similar
games, because
On Wed, Sep 25, 2002 at 05:33:42PM -0400, Tanton Gibbs wrote:
Here is how to do it in mysql
http://www.mysql.com/doc/en/Cast_Functions.html
Have you tried it on the type of data the original poster was mentioning?
I'm suspecting it's going to have a problem when trying to cast 1b as a
number.
On Wed, Sep 25, 2002 at 03:37:51PM -0700, david wrote:
a lot of modules in CPAN have overlap functionality. they exist solely
for the users' benefit.
It depends on the module, and for many of the modules that may be true. But
there is another reason there are overlapping modules on CPAN: the
On Wed, Sep 25, 2002 at 10:11:25PM -0500, rob wrote:
ppm
then help
ppm is perl package managment. This downloads and installs modules for you
(but you have to know what you're interested in)
It should be noted that ppm is specific to an ActivePerl install. If you're
not using ActivePerl
On Wed, Sep 25, 2002 at 06:51:14PM -0500, James Edward Gray II wrote:
On Wednesday, September 25, 2002, at 05:08 PM, Michael Fowler wrote:
I looked for telnet servers and found a few things. There's an OurNet
namespace for some sort of BBS system, and an Anarres::Mud::Driver
namespace
On Tue, Sep 24, 2002 at 10:18:58AM -0400, chad kellerman wrote:
Is there a way I can mark a part of a script so that, if I wrap an
eval around a particular statement I can go back to that mark and retry
it.
I have to make quite a few ssh connections to various servers, I was
wondering
On Tue, Sep 24, 2002 at 10:38:59AM +0800, [EMAIL PROTECTED] wrote:
What's the simplest method to remove a directory *and* it's contents?
(rmdir only works on empty directories.)
I'm somewhat surprised by the advice given so far (rm -rf and File::Remove;
the first isn't portable, the second
On Tue, Sep 24, 2002 at 03:08:44PM -0400, William Black wrote:
Where does a loadable object for a particular module get stored (ie what
directory)? Below is the error message i'm getting.
In @INC, in one of the architecture-specific directores, under an auto
subdirectory. You shouldn't need
On Tue, Sep 24, 2002 at 02:27:08PM -0700, nkuipers wrote:
How do I make install somewhere else? I can then explicity push onto @INC
within my script.
See perldoc -q 'my own module'.
That's the second time I've given that advice out today. Anyone for a
third? :)
Michael
--
Administrator
On Tue, Sep 24, 2002 at 04:36:47PM -0400, William Black wrote:
How do you add a path to @INC?
See perldoc -q 'my own module' for information on installing and using a
module installed into your own library directory. The advice works equally
well for modules installed in other non-standard
On Mon, Sep 23, 2002 at 09:31:25AM -0400, William Black wrote:
Does anyone know how to use the file copy module to past files to remote
servers?
File::Copy is for copying and moving files on the local filesystem. I'm not
sure why you would be trying to apply it to this problem, or why you'd
On Thu, Sep 19, 2002 at 10:33:05AM -, Cricker wrote:
If I may summarize -- and please correct me if this is wrong -- there is
indeed no way to textually include one file inside another, like #include
in C.
As I mentioned previously in this thread, C is able to share its variables
between
On Thu, Sep 19, 2002 at 10:02:32AM +0200, David Samuelsson (PAC) wrote:
I want it so it will execute the subs in the order according to the lines
when i start the scrippt, and i will try to keep to default -value cause
the scipt will probably be used by others aswell so no double --.
You
On Thu, Sep 19, 2002 at 09:39:54AM +0100, Gary Stainburn wrote:
I've got a problem understanding a scoping issue I've got.
http://perl.plover.com/FAQs/Namespaces.html is a good online resource for
learning about scoping.
I've got 2 hashes which I defined inside the sub that generates the
On Thu, Sep 19, 2002 at 04:40:12PM -0500, Mariusz wrote:
How can I get that id into a scalar? Will this work?
$lastid = $dbh-{'mysql_insertid'};
Have you tried it? Perl lends itself well to experimentation.
Michael
--
Administrator www.shoebox.net
Programmer, System
On Thu, Sep 19, 2002 at 05:48:37PM -0500, James Edward Gray II wrote:
I've got some general questions about times(). Programming Perl lists
this function as a problem for portable code, anybody know more
specific details about what platforms it does or doesn't work on. I'm
guess it's a
On Tue, Sep 17, 2002 at 06:25:42PM -, Cricker wrote:
I'd like to break my perl script into several files (because it is getting
awfully large, with all the callbacks from Tk), but still keep the lexical
scope. Maybe I'm thinking too much like a C programmer, but I would just
like to
On Wed, Sep 18, 2002 at 12:12:34PM -, Cricker wrote:
Thanks, but I thought that modules were for submitting to CPAN. Don't I
have to go through all the @ISA and Exporter:: stuff if I write a module? I
would like to get away with something simpler.
Modules are for splitting code into
On Tue, Sep 17, 2002 at 03:15:44PM -0400, Bernd Prager wrote:
I'd like to write a subroutine that parses an XML file.
I use XML::Parse and one way that works is to define
subroutines with the name of an XML tag and every appearance
of that tag calls the appropriate subroutine.
Since I want
On Tue, Sep 17, 2002 at 07:56:55AM -0400, Rum Pel wrote:
I installed MailTools, and want to use
Mail::Util-read_mbox($file)
THe documentation says:
Read $file, a binmail mailbox file, and return a list of references. Each
reference is a reference to an array containg one message.
But
On Tue, Sep 17, 2002 at 01:50:34AM -0400, Rum Pel wrote:
use HTTP::Request::Common;
$ua = LWP::UserAgent-new;
my $res = $ua-request(GET 'http://www.sn.no/');
if ($res-is_success) { ...
Now, what is the type of 'res' variable?
In the html documentation that comes with perl,
I can
On Tue, Sep 17, 2002 at 05:06:31PM -0400, Chas Owens wrote:
Nope, you are looking at an indirect method call (OO Perl stuff). The
actual call is
FH-print($arg1, $arg2);
While it's tempting to say this, because the syntax looks identical, it's
not the case. Try substituting a different
On Thu, Sep 12, 2002 at 05:04:20PM -0700, Harry Putnam wrote:
david [EMAIL PROTECTED] writes:
I must be a real dunce, but I still don't get the point.
If a bad regex is given, I want the program to stop.
Your script above doesn't spit an error, it just fails and gives some
other error.
On Thu, Sep 12, 2002 at 04:30:12PM -0700, Jeff wrote:
I want to install some mods on my Unix system but don't have root access.
Is there a way to do a local installation (ie, under my home directory)???
Seems you have to be root since there is some linking to the system
libraries.
Yes, see
On Wed, Sep 11, 2002 at 02:06:22PM -0400, Larry Steinberg wrote:
I searched the FAQ but the reference I got, I didn't get, if you know what
I mean. Can someone show me the code to link to the library mentioned in
the subject line? Running SunOS 5.8. I got this from perl -V:
I don't understand
On Tue, Sep 10, 2002 at 09:07:59PM -0400, George Gunderson wrote:
On Tuesday, Sep 10, 2002, at 18:45 US/Eastern, Michael Fowler wrote:
What is the purpose of trying to hide the URL from a user? However you
obscure the URL the user must still be able to access the CGI script.
For me, its
On Wed, Sep 11, 2002 at 12:17:55PM -0400, Chad Kellerman wrote:
my @list = bla, bla, bla, bla, bla;
You probably meant @list = (bla, bla, bla, bla, bla);
foreach my $item(@list) {
my $pid;
FORK: {
if ($pid=fork) {
print$pid\n;
On Wed, Sep 11, 2002 at 07:28:48PM +, Mariusz K wrote:
$digest = md5($data);
Can I use md5 without submitting $data?
No. An MD5 digest is for determining a fingerprint for a given set of data,
it's not for generating unique IDs. Please review perldoc Digest::MD5.
I want to simply
On Wed, Sep 11, 2002 at 03:56:42PM -0400, Chad Kellerman wrote:
But if I was tarred 5 large users from 5 different servers, I ran out
of memory on the backup server and crashed the server. I have found
that perl, once it uses memory it does not release it until the script
dies. Well this
On Mon, Sep 09, 2002 at 11:56:59PM -0600, Jose Malacara wrote:
Is there an easy way to hide ,or spoof, a URL when outputting to html with
perl? For example if I was running a script in my cgi-bin directory, but
wanted the URL to appear differently so as to hide location of my
cgi-directory.
On Tue, Sep 10, 2002 at 03:26:57AM -0700, RTO RTO wrote:
In a nutshell, is there a way, where user-defined functions can be
safely added to my local installation of Perl and make it believe that
such user-defined functions to be a part of standard Perl functions? Can
I invoke such
On Mon, Sep 09, 2002 at 11:24:01AM -0700, david wrote:
also, the way you create your temp file is not reliable. there are better
ways to do what you need. you might want to goto cpan and search for a
module(i can never remember it's name!) that suits your need.
You're probably thinking of
On Mon, Sep 09, 2002 at 02:29:24PM -0700, RTO RTO wrote:
$_ variable points to list in the outer-loop or
inner-loop depending upon the scope. I prefer to not
use aliases. In such a case, when I am in the scope of
inner loop, can I access the looping variable on the
outer without using an
On Mon, Sep 09, 2002 at 03:06:06PM -0700, drieux wrote:
On Friday, Sep 6, 2002, at 23:26 US/Pacific, pelp wrote:
my $change_on = /FChangeBar Yes/;
my $change_off = /FChangeBar No/;
[snip]
s/$change_on/$change_off/;
given that you have the / elements in the variables,
you may find
On Mon, Sep 09, 2002 at 08:04:24PM -0500, dizzy74 wrote:
[snip]
I did perldoc -q trim and nothing. Of course chop and chomp were there
but diddnt seem to work in a pinch (or I couldnt understand how to apply
the function in my case.
The FAQ entry you're looking for is perldoc -q 'strip
On Thu, Sep 05, 2002 at 07:16:45PM -0400, Wiggins d'Anconia wrote:
if ( 1 my_sub_that_returns ) {
# do something cool.
}
It seems like this case could go either way, that is, in some cases your
function could simply be returning a scalar value, say 0 for a failure
in the sub
On Wed, Sep 04, 2002 at 04:44:39PM -0700, david wrote:
John W. Krahn wrote:
[snip]
$starttime{$current} = join ' ', @line[2 .. 6];
or you could remove the need for join all together:
$starttime{$current} = @line[2..6];
That doesn't really remove the join, it just makes it implicit.
On Mon, Sep 02, 2002 at 03:56:22PM +0530, Ramprasad A Padmanabhan wrote:
Hi All,
I am writing an web application where multiple users may write into
the same file concurrently. Also there is a probability that there may
be an admin who has opened up the file in 'vi' and editing the file.
On Tue, Sep 03, 2002 at 04:33:37PM -0700, Pam Derks wrote:
[snip]
#!/usr/bin/perl
#process all files in directory www/htdocs
use File::Find;
@ARGV = qw(/dept/unxmkt/www/htdocs) unless @ARGV;
find(\find_it, @ARGV);
sub find_it{
foreach $_(@ARGV){
while (){
On Tue, Aug 27, 2002 at 05:47:09PM +0200, Panel Vincent - A53 wrote:
As my first real script in perl, I would to parse a LDIF file (export format
of an LDAP directory) to get some sort of information of it. The structure
of such a file is something like this (between quotes) :
I'd suggest
1 - 100 of 544 matches
Mail list logo
