Re: Array Help Please:)

2001-12-11 Thread Jan-Willem Haaring
Hi, This is a possible solution: $object = "sword"; foreach(@AllObjects) { if (/$object/) { next; }; push(@temp,$_); } @AllObjects = @temp; - JW On Tue, 11 Dec 2001, Andre` Niel Cameron wrote: > Hi, > > I have a prob:) I need to search threw an array and remove an item based on > its n

Re: "\n" in Perl

2001-12-05 Thread Jan-Willem Haaring
Hi, use for (1..5) { print qq'Hello\n'; } instead is a layout equivalent of \n; - JW On Wed, 5 Dec 2001 [EMAIL PROTECTED] wrote: > Hi to All, > I' d like to know why, when I use a cgi script under Win95, the browser > doesn't print in output the carriage-return "\n". > An example: this is m

Re: deleting a file

2001-11-23 Thread Jan-Willem Haaring
unlink("/directory/filename"); perldoc -f unlink - JW On Fri, 23 Nov 2001, Wagner Garcia Campagner wrote: > Hi, > > Sorry for the stupid question, but i didn't find in the FAQ. > > What is the sintax to delete a file??? > > Thanks in advance, > Wagner Garcia Campagner > > -- To unsubscribe,

Re: Redirection

2001-11-21 Thread Jan-Willem Haaring
Hi, You can redirect the user to a page by simply using: print "Location: http://www.internic.com\n\n";; This should be the first line to print to your 'webpage'. good luck! - Jan-Willem On Wed, 21 Nov 2001, Lilian Alvarenga Caravela Godoy wrote: > Another question: how can I redirect a Per

RE: getting output to stdout and browser not wanted

2001-11-20 Thread Jan-Willem Haaring
Hi On Tue, 20 Nov 2001, Randy Higginbotham wrote: > > Nevermind... OK > > $pgp_comand = "$pgp_path -r \"$pgp_public_key_user_id\" -at -o $output_file > >/dev/null > > creates the unwanted output, and > > $pgp_comand = "$pgp_path -r \"$pgp_public_key_user_id\" -at > $output_file > > Does not. W

Re: can't work with filenames with spaces

2001-11-08 Thread Jan-Willem Haaring
Hi, The code you have should work, but you might want to use the opendir function because your current code does not display, hidden files and files you don't have read access on This code does: opendir(DIR,"/path/to/files") || die "Unable to read from directory.\n"; while ( defined ($filename

Re: Auto-initialising a client-side download

2001-10-30 Thread Jan-Willem Haaring
Hi Shannon, This script works for me (IE and NS) and as you can see it is a compilation of several hints posted on this list :) #!/usr/local/bin/perl -T print "Content-type: application/x-foobar\n\n"; $file = $ENV{PATH_INFO}; $file =~ s/[^\w.-]+//g; $file = "/somedir/download/$file"; open(DO

other user!?

2001-10-19 Thread Jan-Willem Haaring
Hi there, I have a question about running CGI scripts with different user rights. I built a script that modifies a DHCP configuration file and then restarts the DHCP daemon. Apache executes scripts as user nobody by default but i don't want that! How, for example, can i run a script as user dhcpd

Re: browser redirection

2001-10-10 Thread Jan-Willem Haaring
When you use print "Location: http://www.mysite.com/page.html\n\n";; to redirect you should never print "Content-type: text/html\n\n"; before it. When printing "Content-type: text/html\n\n" you tell the receiving browser that anything after that line is text/html. The line "Location http://www.m

RE: Sending someone to a new location...

2001-10-10 Thread Jan-Willem Haaring
This is even shorter: if ($requirement == $iscorrect) { $url="./html/default.html"; } else { $url="./html/login.html"; } print "Location: $url\n\n"; - Jan-Willem On Wed, 10 Oct 2001, Grierson, Garry (UK07) wrote: > You can try something like this : > > if ($requirement == $iscorrect){ # Se

Re: NNED HELP

2001-10-04 Thread Jan-Willem Haaring
You can use the LWP:Simple module to connect to an URL and fetch a webpage. ie. use LWP:: Simple; $information = get("http://www.perl.com); .. $information now contains the HTML code of the website. Remove the HTML tags and you have you're information. tchau, Jan-Willem On Thu, 4 Oct 2001, G