On Friday, May 3, 2002, at 07:03 , Tor Hildrum wrote:
>>> Could someone point me to a page that gives information about all the
>>> pitfalls that are "available" when running a Perl or CGI script with the
>>> suid bit set?
>
> :)
sorry... didn't know that you knew that already. My Bad.
>> If
>
>> Could someone point me to a page that gives information about all the
>> pitfalls that are "available" when running a Perl or CGI script with the
>> suid bit set?
>
:)
> If you really need setuid processes - then one of the
> principle tricks remains to have them 'spawned' from a
> nice
On Friday, May 3, 2002, at 05:48 , Tor Hildrum wrote:
> Could someone point me to a page that gives information about all the
> pitfalls that are "available" when running a Perl or CGI script with the
> suid bit set?
there are two important things here
just because you did the chmod 47
On Friday, May 3, 2002, at 02:13 , Paul Weissman wrote:
[..]
> when you read from a binary file like:
>
> open ( FD, $filename );
> binmode ( FD );
> read(FD, $buf, 2);
as you will notice from perldoc binmode - on most systems this
really is not implemented as doing much of anything... It is
re
Could someone point me to a page that gives information about all the
pitfalls that are "available" when running a Perl or CGI script with the
suid bit set?
I tried google.com, but couldn't find anything god.
I found this:
http://www-genome.wi.mit.edu/WWW/faqs/wwwsf5.html
But, it's extremely lig
Pedro A Reche Gallardo wrote:
>
> Dear Adam, I have an small perl script (see below) to retrieve a list of
> files whose filenames are listed in a file that is the the input of the
> program. The program runs as it follows: getpdb.pl file; and "file"
> just contain the two following entries
> 2v
On Friday, May 3, 2002, at 09:17 , Teresa Raymond wrote:
> Someone mentioned that sucking a file into an array is not a good idea
> and I read the Perl fact on it but still am not sure why this is not a
> good idea, especially because a lot of code posted uses this method.
[..]
{ since wags an
It's a matter of memory management. If you suck in an entire file, you
could run out of memory, making your script run slower. Also, you have to
do all of the reading before you can start processing the file.
while () {
if (/something/) {
print "$_\n";
}
}
or
while (my $i=) {
If you changed:
foreach my $i (@array)
{if ($i=~/something/)
{print "$i\n";
}
}
to
foreach (@array)# defaults to $_
{if ( /something/)
{print "$_\n";
}
}
Then use while
while ()# defaults to $_
{if ( /something/)
{print "$_\n";
}
}
Same processing, but one us
Someone mentioned that sucking a file into an array is not a good
idea and I read the Perl fact on it but still am not sure why this is
not a good idea, especially because a lot of code posted uses this
method.
In addition, if you have the file in an array then you can do foreach:
open(FH, "t
On Friday, May 3, 2002, at 02:57 , Jerry Preston wrote:
> I tried the following:
>
> if( ! defined( $x = readlink( "$fp/$program" ))) {
> print "2 programs $program*'$x'*\n";
> $programs{ program }{ $program } = "$fp/$program";
> }
>
> and all I get is '';
let's try
read loads a scaler string, in this case, a string of 2 characters.
Characters
You can pick out the individual characters a few ways, like:
@newbuf = split(// , $buf);
Then, convert each character to it's numerical value with ord:
printf " %02X", ord($newbuf[0]);
printf " %02X", ord($newbuf[1])
On Friday, May 3, 2002, at 02:33 , Paresh Kakrecha wrote:
> I just ran your code on my machine and it worked for me.
> check the write permission on parent directory of Abs
>
> if still not work then use
> system("/usr/bin/rm -rf Abs");
>
> -Paresh.
[..]
>> use File::Path;
>> rmtree("Abs",1,1)
I tried the following:
if( ! defined( $x = readlink( "$fp/$program" ))) {
print "2 programs $program*'$x'*\n";
$programs{ program }{ $program } = "$fp/$program";
}
and all I get is '';
I know one file's permissions are lwxrwxrwxr and the other is -wxrwxrwxr!
Any ide
I just ran your code on my machine and it worked for me.
check the write permission on parent directory of Abs
if still not work then use
system("/usr/bin/rm -rf Abs");
-Paresh.
At 03:54 PM 5/3/2002 -0500, Aman Raheja wrote:
>I have a directory "Abs" with a file "abc" in it.
>I am using rmtree t
Dear Adam, I have an small perl script (see below) to retrieve a list of
files whose filenames are listed in a file that is the the input of the
program. The program runs as it follows: getpdb.pl file; and "file"
just contain the two following entries
2vaa
2vac
Somehow, I only cant get the firs
There's Perl2exe, but that's about it. It's kind of a specialized field...
-Original Message-
From: Paul Weissman [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 03, 2002 2:14 PM
To: [EMAIL PROTECTED]
Subject: Standalone Perl apps in Win32(was RE: Perl and Visual Basic)
So are these the
On Friday, May 3, 2002, at 01:30 , drieux wrote:
>
> On Friday, May 3, 2002, at 11:08 , Jerry Preston wrote:
>
>> Hi
hello
for those playing the 'play along at home game'
http://www.wetware.com/drieux/CS/lang/Perl/Beginners/linkToNowhere.txt
where I go into a bit more detail about the diffe
ok, i guess i'm just confused about all this automatic type stuff in perl.
when you read from a binary file like:
open ( FD, $filename );
binmode ( FD );
read(FD, $buf, 2);
now $buf has 2 bytes of your file. what kind of data type is this? why
does:
printf '%x', $buf;
not print out the hex
So are these the main avenues to go for making standalone Perl apps under
Windows, or are there some other alternatives?
Theres's got to be something else other than the ActivePerl routes... ?
Paul
> -Original Message-
> From: DeBaets, Kirk [mailto:[EMAIL PROTECTED]]
> Sent: Friday, M
I have a directory "Abs" with a file "abc" in it.
I am using rmtree to rm this dir as follows
use File::Path;
rmtree("Abs",1,1) or die "dir not del";
print "done";
The output is
unlink ../htdocs/store/newpages/Abstract/abc
It neither prints the die statement nor the done - ofcourse i
On Friday, May 3, 2002, at 11:08 , Jerry Preston wrote:
> Hi!
>
> I am trying to determine if a is linked or not. I am using the following:
[..]
> I get the same result for two files! One is linked and the other is not.
let me offer you a bit of a basic case:
vladimir: 57:] ls -l *dos*
-rwxr
Jerry Preston wrote:
>
> Hi!
Hello,
> I am trying to determine if a is linked or not. I am using the following:
If you have a file and you want to determine if another file is linked
to it then you will have to search through all files on your system to
find it/them. If you find a symbolic l
Anders Holm wrote:
>
> Hi folks!
Hello,
> I'm trying to do a test on one of our servers where I'd like to send one
> mail message to upto 1000 recipients.
> For this I'd like to use Mail::Bulkmail...
>
> Now, I seems to be messing it up somehow, and am very short on time.. :(
> Could someone h
On Fri, May 03, 2002 at 05:51:42PM +0200, walter valenti wrote:
> for($i=1;$i<=5;$i++){
>my $pid=fork;
>die "$!\n" unless defined($pid);
>unless($pid){
>sleep;
>}
> }
> sleep;
[snip]
> if i send a 'TERM' at the father, i want that the fathet kill the childs
> and aftet it dies
I removed beginners-cgi from the Cc: list. Your question has nothing
specifically to do with CGI, and is thus not appropriate on that list.
Please don't cross-post.
On Fri, May 03, 2002 at 06:58:34PM +0800, Conan Chai wrote:
> use MLDBM 'DB_File';
>
> tie %data, "MLDBM", "database", O_CREAT|O
Hi!
I am trying to determine if a is linked or not. I am using the following:
if( -f "$fp/$program" ) {
print "2 programs $program*\n";
$programs{ program }{ $program } = "$fp/$program";
}
and
if( -l "$fp/$program" ) {
print "2 programs $program*\n";
That's sort of the weirdest part of all of this. I'm connecting
to a piece of proprietary hardware that has a modem incorporated into it
and that I currently use HyperTerminal on a Win32 box, but I really want to
automate this process. It would be a single connection, but the compute
I am going to go on the same assumption (ActivePerl) and recommend
PerlCtrl from the PDK. With a couple of minor modifications to the
script you can turn your Perl app into an ActiveX dll that is easy
enough for your VB to use.
-Original Message-
From: John Brooking [mailto:[EMAIL PROTEC
on Fri, 03 May 2002 15:01:17 GMT, Fritscher Ralf wrote:
> Could you explain the difference between these two command lines,
> please!
Difference:
... undef != $results[$i] ... wrong
... defined($results[$i]) ... right
Run the following program:
my $x = 0;
if ($x !=
> "Adam" == Adam Morton <[EMAIL PROTECTED]> writes:
Adam> So, we've covered the nice, general, modular way to do it, but
Adam> no one so far has mentioned the quick and dirty way.
And, of course, you can:
push @ARGV, $filename;
as a shortcut to having to bother issuing an open(
> On Thursday, May 2, 2002, at 12:32 , Josef E. Galea wrote:
>
> > How can I pass parameters (eg: a file name) to a Perl script
So, we've covered the nice, general, modular way to do it, but no one so far
has mentioned the quick and dirty way.
If you want to specify a file name for purposes of
On Thursday, May 2, 2002, at 10:37 , Jonathan E. Paton wrote:
> Don't forget to turn on autoflushing with "$|=1", or for long queries
> it will timeout.
Intellectually I agree with this, and I know that a part of
that is to get the 'message back' as quickly - but I have
never really understood
On Thursday, May 2, 2002, at 12:31 , Jackson, Harry wrote:
> I am attempting to write a module and trying to follow the guidelines etc
> on
> how it should be done.
[..]
I can help as time allows... { just tag it B/C so I see
that we are taking this 'Back Channel' ... hey old habits. }
fo
On Thursday, May 2, 2002, at 12:32 , Josef E. Galea wrote:
> How can I pass parameters (eg: a file name) to a Perl script
you will ultimately want to deal with
perldoc GetOpt::Long
as the complexity of the command line argument sequence grows.
given something like:
#!/usr/bin/p
On Friday, May 3, 2002, at 08:50 , Gordon Cabaniss wrote:
>
> There is a perl module called Authen::Smb that might work for you. http:
> //freshmeat.net/redir/authensmb/483/url_tgz/Authen-Smb-0.91.tar.gz
>
> You will need to install the samba package. If you want to use .htaccess
> files with
There is a perl module called Authen::Smb that might work for you.
http://freshmeat.net/redir/authensmb/483/url_tgz/Authen-Smb-0.91.tar.gz
You will need to install the samba package. If you want to use .htaccess files with
apache to the auth you might check out.
http://modntlm.sourceforge.n
Hi,
if i've got a script like:
for($i=1;$i<=5;$i++){
my $pid=fork;
die "$!\n" unless defined($pid);
unless($pid){
sleep;
}
}
sleep;
The father forks 5 childs that sleeping, and after also the father sleeps.
The question is:
if i send a 'TERM' at the father, i want that the f
All,
I'm writing a web based app and I want to have a user login page. I can
create the page just fine and do the all the form "stuff" just fine.
However, what I'm looking at trying to do is to authenticate the user id &
password against either our NT server accounts or Sun NIS server accounts
d
On Friday, May 3, 2002, at 07:37 , Aaron Petry wrote:
> I need to connect to a remote computer via a dialup and send some
> terminal commands via a vt100 terminal. Is there a module to do this,
> and if so, what is it?
I'm not too sure that there is one for the dialup side,
but you wil
On Friday, May 3, 2002, at 06:54 , james wrote:
[..]
> i've been monitoring this list and couldn't help but notice the volume of
> your posts. i have to ask: do you ever sleep?
when I can. ( no smiley )
>
> :) james
may I recommend:
http://www.wetware.com/drieux/screeds/LiNox.html
actually y
You're right, Felix! Sorry!
Could you explain the difference between these two command lines, please!
Thanx
Ralf
-Original Message-
From: Felix Geerinckx [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 03, 2002 2:09 PM
To: [EMAIL PROTECTED]
Subject: RE: $results[$i] fails :o(
on Fri, 0
I need to connect to a remote computer via a dialup and send some terminal
commands via a vt100 terminal. Is there a module to do this, and if so,
what is it?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Sweet link, passing that on to some of my co-workers.
"And there go my nipples again." -- Capt. Murphy (Sealab 2021)
http://www.juliao.org/text/tao-of-p.shtml (Tao of programming)
-Nik
> -Original Message-
> From: Tor Hildrum [mailto:[EMAIL PROTECTED]]
> Sent: Friday, May 03, 2002 10:0
> From: "james" <[EMAIL PROTECTED]>
> Date: Fri, 3 May 2002 08:54:49 -0500
> To: <[EMAIL PROTECTED]>
> Subject: Re: developing and testing first CGI/Perl application
>
> drieux,
>
> i've been monitoring this list and couldn't help but notice the volume of
> your posts. i have to ask: do you ever
drieux,
i've been monitoring this list and couldn't help but notice the volume of
your posts. i have to ask: do you ever sleep?
:) james
- Original Message -
From: "drieux" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: May 03, 2002 08:45
Subject: Re: developing and testing first CGI/
On Friday, May 3, 2002, at 06:22 , Maureen E Fischer wrote:
> I am about to write my first CGI/Perl application. I have read Learning
> Perl and I now am reading the Castro Perl and CGI book and the O'Reilly
> CGI book. I was going to write and test my work using IIS on Windows
> because it se
On Friday, May 3, 2002, at 01:31 , Chas Owens wrote:
> On Fri, 2002-05-03 at 04:22, Fabrizio Morbini wrote:
>> Hi,
>> Anyone know how handle big file with Perl (size > 2 GB)?
[..]
> Very carefully.
the specific is that you will need to have your version of
perl built with the "USE_LARGE_FI
On Friday, May 3, 2002, at 03:58 , Conan Chai wrote:
[..]
>
> tie %data, "MLDBM", "database", O_CREAT|O_RDWR, 0644
> or die "can't open/create files:$!\n";
>
> the error:
> MLDBM error: Second level tie failed, "No such file or
> directory"
[..]
p0: try one or the other mailing lists.
p1: if yo
I am about to write my first CGI/Perl application. I have read Learning
Perl and I now am reading the Castro Perl and CGI book and the O'Reilly
CGI book. I was going to write and test my work using IIS on Windows
because it seemed easy for me to get started that way, but I have access
to a Su
Hey John,
My MUA believes you used (X-Mailer not set)
to write the following on Friday, May 3, 2002 at 8:32:28 AM.
JB> How did you get the aerial photo? I can't find any links to show
JB> ariel photos when I start over with my own location.
at mapquest, bring up your street, the just above the m
Hey Tim,
My MUA believes you used The Bat! (v1.60h) Personal
to write the following on Friday, May 3, 2002 at 7:37:43 AM.
TM> Here is my house...
Sorry, looks like a mail template got away from me...
--
[EMAIL PROTECTED]
MUA = TB! v1.60h (www.RitLabs.com/The_Bat)
Windows 2000 5.0.2195 (Servic
on Fri, 03 May 2002 12:21:46 GMT, [EMAIL PROTECTED] (Anders Holm)
wrote:
> $bulk->List("user" . "$rcpt" . "@mydomain.com");
Either
'@mydomain.com'
or
"\@mydomain.com"
will do.
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
I'm assuming you are using ActivePerl. In
ActiveState's Perl Dev Kit (sold separately, $129),
there is a utility to package an ActivePerl script
into a stand-alone Windows executable. I've only tried
the free 7-day trial version, but it seems to work
pretty well, including wrapping up any extra mo
Hi folks!
I'm trying to do a test on one of our servers where I'd like to send one
mail message to upto 1000 recipients.
For this I'd like to use Mail::Bulkmail...
Now, I seems to be messing it up somehow, and am very short on time.. :(
Could someone help me out here??
The usernames I'm sending
How about Having the VB button link to Perl on your server and run?
Ernest P. Tucker II
Network Technician
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 03, 2002 7:09 AM
To: [EMAIL PROTECTED]
Subject: Perl and Visual Basic
Good day;
I
[EMAIL PROTECTED] wrote:
> Good day;
Hello,
> I have developed some useful Perl scripts.. Users want a VB front-end
> to run these scripts.
> What do I need to do, such that something like this could work (i.e.:
> User presses a command button, which then launches a Perl script- data
> sent t
on Fri, 03 May 2002 10:21:35 GMT, [EMAIL PROTECTED] (Martin A. Hansen)
wrote:
> hi, im having trouble printing out the key of this record hash:
> i wan the result to print:
> THIS_HERE
> [...]
> so printing should be something ala:
> print $hash_ref -> { };
print "$_\n" foreach (keys
Good day;
I have developed some useful Perl scripts.. Users want a VB front-end
to run these scripts.
What do I need to do, such that something like this could work (i.e.:
User presses a command button, which then launches a Perl script- data
sent to output files, etc..)
Some caveats:
We work
on Fri, 03 May 2002 10:24:19 GMT, [EMAIL PROTECTED]
(Fritscher Ralf) wrote:
>... undef != $results[$i] ...
>
> is the correct syntax, it shall prevent accessing unexisting array
> elements.
>
No, it is not, as you will notice when you enable warnings,
The correct syntax, as I showed you b
Hey LeeRM43,
My MUA believes you used Atlas Mailer 2.0
to write the following on Friday, May 3, 2002 at 7:13:49 AM.
Lac> Check out the overhead view of your house at:
Lac> terraserver.homeadvisor.msn.com
Lac> Do not put WWW in front of the above.
You get a better photo from www.Mapquest.com
H
hi all,
i want to use MLDBM to store some data(name with
multiple values), but error occurs. i have installed
these modules, but i'm not sure what i'm missing.
MLDBM
DB_file
Data::Dumper
the codes:
use MLDBM 'DB_File';
tie %data, "MLDBM", "database", O_CREAT|O_RDWR, 0644
or die "can't open/crea
Hallo Felix,
thanx a lot :o)
... undef != $results[$i] ...
is the correct syntax, it shall prevent accessing unexisting array elements.
Have a nice weekend...
Ralf
-Original Message-
From: Felix Geerinckx [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 03, 2002 12:04 PM
To: [EMAI
hi, im having trouble printing out the key of this record hash:
i wan the result to print:
THIS_HERE
im sure its trivial, but i cant figure it :)
martin
{
'THIS_HERE' => {
'ISH' => [
'3'
on Fri, 03 May 2002 09:30:35 GMT, [EMAIL PROTECTED]
(Fritscher Ralf) wrote:
> ... not undef $results[$i] ...
'undef' is an operator which undefines its argument, and always returns
the undefined value. The expression 'not undef $results[$i] therefor
will always be 'true', but in the meantime
Hallo folks,
I don't understand the problem in the code snippet below. I am not able to
fetch the value of a specific array element $result[$i], WHY?
:
:
:
# LOGFILE already opened before
my $noofbuilds = 5;
my @results= (0,1,1,1,0,1,1,0);
my $average= 0;
> I am going crazy looking for a command that converts these scaled
> numbers to some relevant format compatible with the TIFF format.
>
> I am however able to convert a tiff image to numbers (0-255)
> character by character using the ORD command but the reverse
> process.. no clue! please help!
On Fri, 2002-05-03 at 04:22, Fabrizio Morbini wrote:
> Hi,
> Anyone know how handle big file with Perl (size > 2 GB)?
>
> Thank you very much for any help.
> Fabrizio
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
Very caref
Hi,
Anyone know how handle big file with Perl (size > 2 GB)?
Thank you very much for any help.
Fabrizio
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi
I have a tiff header stored in a scalar (that was retrieved from a
uncompressed tiff by the read statement).
and I have an array (287 by 370) which has numbers from 0-255.
I am trying to write it to a file in an uncompressed tiff format after the
header, and view the image.
I am going craz
Scott Lutz wrote:
>
> What is the purpose of the following code?
>
> @list = keys %{{map{$_,1} @list}};
This removes any duplicate elements in @list.
$ perl -le'
@list = qw[a b c d e d c b d];
print "@list";
@list = keys %{{map{$_,1} @list}};
print "@list";
'
a b c d e
Scott Lutz wrote:
> What is the purpose of the following code?
>
> @list = keys %{{map{$_,1} @list}};
map {$_, 1} @list > $_ is holds the value of the current element of @list
i.e. being processed
for e.g. if @list contains ("abc", "def", "ghi"), a list like ("abc", 1, "def",
1, "ghi", 1) is
What is the purpose of the following code?
@list = keys %{{map{$_,1} @list}};
I am looking over someone else's code, and I am not familiar with the map()
function.
I have looked through the perl docs on www.perldoc.com, but it doesn't quite
get this deep.
Any help would be great.
--
To unsu
73 matches
Mail list logo
