Why can't you use CGI.pm? Some company policy or something? If you aren't
going to use that, you can still (aack) parse out the CGI input manually
if you have to, then use opendir/readdir/closedir to build arrays of file
and directory names and print them out. Or just print them out without
'pearl' should be Perl (for the language) or perl (for the binary).
born shell should be Bourne Shell.
You don't say what kind of an error you're getting with the MSI, you just
say it fails. Fails how?
If you've done shell programming, a lot of Perl will look familiar to you.
When you get it
I am also working on a project that requires passing a password via the web,
and obviously did not want to do so URL encoded with GET. My suggestions:
A. Use CGI.pm's param() method to get your
form data. I second Carl's question as to why
you would manually parse
Title: Reverse of Chomp...
Would this
work?
map { print "$_ \n" }
@array;
I think that
still loops through it though. H.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
George GallenSent: Thursday, June 12, 2003 3:46
PMTo:
Have you tried the Date::Format module? Otherwise some good old fashioned
splitting or regexing might be in order. :)
Scot R.
inSite
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Bryan
Tom Team EITC
Sent: Tuesday, June 10, 2003 1:26 PM
To: '[EMAIL
I suspect you mean %NOMINET rather than NOMINET; if I'm mistaken let me
know. But here's one way to do it:
foreach my $key(keys(%NOMINET)) {
print $key = $NOMINET{$key} \n;
}
or if you want to return the keys alphabetically:
foreach my $key(sort(keys(%NOMINET)))
Something like this may work
#!/usr/bin/perl -w
use Image::Magick;
my ($image, $foo);
$image = Image::Magick-new;
$foo = $image-Read('image.jpg');
$foo = $image-Write('image.tif');
# Image::Magick (PerlMagick) module found here:
# http://www.imagemagick.org/www/perl.html
# Also, you must
That seems like a lot of work when you could just do something like what's
shown below. And I'm sure someone is going to follow with something shorter
and cleaner than this one, but it's a start. I did test it and it worked.
#!C:\Perl\bin\perl.exe -w
use strict;
my $file =
a character that you want to keep.
Later,
Matt
-Original Message-
From: Scot Robnett [mailto:[EMAIL PROTECTED]
Sent: Monday, March 31, 2003 10:52 PM
To: Daniel Gross; [EMAIL PROTECTED]
Subject: RE: Removing all \n in a text file.
That seems like a lot of work when you could just do
A few issues on the regex:
1. Dot . has special meaning, so escape it.
Without the escape, it means Match any
single character with the exception of a
new line character.
2. The filename may contain more than one dot,
so tell the regex if the file contains one
or more dots, we'll
Show us the code?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Lupi, Guy
Sent: Monday, March 03, 2003 5:22 PM
To: '[EMAIL PROTECTED]'
Subject: Having problems with Net::Telnet
Please excuse me if this is an extremely basic question, this is my first
files, files in the wrong place, etc.)
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Malcolm Debono
Sent: Monday, February 24, 2003 5:58 AM
To: [EMAIL PROTECTED]
Subject: Help with HTML::Parser
Sorry, did a no-no and forgot the semicolon. Should have been
BEGIN {
unshift(@INC,/path/to/HTML);
}
Haven't finished my coffee yet this morning.
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED
, do another install.
PPM install HTML::Parser
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Malcolm Debono
Sent: Monday, February 24, 2003 3:50 PM
To: Scot Robnett; [EMAIL PROTECTED
Can I be the first to ask this not to become a M$ lovers vs. M$ haters
sparring match? Let's all help each other here. Thanks and I'll shut up now.
:)
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED
t;perl.org");my $a = nslookup(host =
"use.perl.org", type = "A");my @mx = nslookup(domain = "perl.org",
type = "MX");my @ns = nslookup(domain = "perl.org", type =
"NS");
Scot
Robnett
inSite Internet
Solutions
[EMAIL PROTECTED]
I'm sure there are more elegant ways to do this, and I'm sure they'll be
coming through the list shortly, but here's an option:
my @days =('Sunday','Monday','Tuesday',
'Wednesday','Thursday','Friday','Saturday');
foreach my $text(@days) {
$text =~ s/day/day\'s Games/;
}
-
Scot Robnett
($from,$to,$subject,$body,CdoHigh);
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:perl-win32-users-admin;listserv.ActiveState.com]On Behalf Of
Krishna, Hari
Sent: Friday, November 08, 2002 12:24 PM
To: 'Mohanty, Debi (MED
If your system is set to use pw_age in the /etc/passwd configuration,
something similar to this may work to get the age of the user's password. If
the pw_age option isn't set, then I'm not sure. This example is for a single
user only; you'd have to do something to iterate over each account.
Sorry, I also meant to suggest a module such as Net::Telnet to log in to the
UNIX box. Although, if you can use Net::SSH, you're better off running a
secure login session (Telnet sends the login password in unencrypted ascii).
Net::SSH example from CPAN:
use Net::SSH qw(ssh issh sshopen2
To me, it looks redundant. It's repetitive. It says the same thing over and
over. ;-)
Scot R.
inSite
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Michael D. Schleif
Sent: Tuesday, August 20, 2002 11:23 AM
To: Perl-Win32-Users List Service
Subject:
those errors are. Perl and Apache
make a great combo in reporting
why errors happen, so I am once
again suggesting the use of Apache
and the sh*tcanning of PWS. :)
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
http://www.insiteful.tv
, 2002 2:34 PM
To: Perl Users
Subject: Re: Getting cgis to work
Scot Robnett wrote:
On Windows, the shebang
line
is almost a frivolity - as long as the script has a .pl or .cgi extension
(and you have .cgi associated with perl.exe), it should run
: Thursday, August 15, 2002 3:33 PM
Subject: Re: Getting cgis to work
Scot Robnett wrote:
On Windows, the shebang
line
is almost a frivolity - as long as the script has a .pl or .cgi
extension
(and you have .cgi associated with perl.exe
Would it be only semantic to escape the semicolon, or could it cause a
problem not to do so? I'm not asking to be picky, I really don't know. :)
Scot R.
inSite
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Ron
Grabowski
Sent: Monday, July 15, 2002
Title: Question
open(IN,"C\:\\text1.txt") or die "The following error occurred: $!
\n";
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Thiago BurinSent: Thursday, April 18, 2002 12:24
PMTo: [EMAIL PROTECTED]Subject:
Question
Hi,
Don't use system, use backticks to get the output of the command.
$foo = `cat foobar.txt`;
print FH $foo;
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Carter A. Thompson
Sent: Thursday, March 21, 2002 1:39 PM
To: Perl Users
Subject: Filehandle and
I also use MIME::Lite. Works like a charm on *NIX, but I can't get it to
work with IIS on Win2K. I guess it's because my Windows host requires you to
use a CDO object instead of an actual executable mail program, since they're
an ASP shop.
-Original Message-
From: [EMAIL PROTECTED]
? ;-)
It is more likely the MySQL DB. If there is already an ODBC port in use by
SQL Server or Access, you may need to specify a port within DBI to make sure
you don't have a conflict.
-
Scot Robnett
inSite Internet Solutions
Square West Center
454 West Jackson Street
Woodstock, IL 60098
(815)206
say all the information is gone when you try to save the document
with Perl, so I'm assuming that you're not doing anything to help Perl know
that there's Javascript coming.
-
Scot Robnett
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf
Try Mail::Audit by Simon Cozens.
http://search.cpan.org/doc/SIMON/Mail-Audit-1.11/Audit.pm
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Kuhnibert
Sent: Friday, December 07, 2001 12:35 PM
I second the binmode suggestion. You can unpack ascii out of a binary file
faster than you can step through a text file and write it.
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Jaime Teng
system(del $filename);
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Edward G. Orton
Sent: Wednesday, November 28, 2001 2:04 PM
To: Perl-Win32-Users Mailing List
Subject: unlink(file
That was definitely a virus. Fortunately, AVG antivirus caught it on my
system this morning. If you get a 'response' from Sisyphus, do not open it.
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf
34 matches
Mail list logo