--- Jeff <[EMAIL PROTECTED]> wrote:
> Anyone know of a unix equivalent to win 32 function Win32::Internet
>
> Trying to capture a web page as a string i.e.
>
> $INET = new Win32::Internet();
> $file = $INET->FetchURL("http://www.yahoo.com";;);
>
> Thanks,
>
> Jeff
Assuming that you want jus
--- "Gavin Nelmes-Crocker [CobaltWorld]" <[EMAIL PROTECTED]> wrote:
> Guys, I've got a newbie question - I have been hacking at a perl script to
> change it to do what I want - it nearly does but I can't understand why the
> main bit isn't working. Basically the script gets sent a string from an
--- Hans Holtan <[EMAIL PROTECTED]> wrote:
> I am having a problem searching a large (600 mb) text file. What I
> need to do is find a match with a short bit of text and then look up
> to 200 characters forwards and backwards for other matches to
> different short bits of text. I tried reading
--- [EMAIL PROTECTED] wrote:
> I know this is not a good RegEx. Can I see some criticism and fine-tuning of
> this RegEx that I came up with?
>
> Objective: To parse the path to drive, directory and file name.
>
> Here is what I came up with.
>
> #
> $fullpath =
--- "Moore, Larry" <[EMAIL PROTECTED]> wrote:
> I want to slurp a file and make multiple blank lines into single blank
> lines. Here is my code:
>
> #! perl -w
> use strict;
>
> my $file = "test.fmt";
>
> open (IN, $file) or die;
> open (OUT, ">>test.txt");
>
> my $text;
>
> {
> local
--- Jan Gruber <[EMAIL PROTECTED]> wrote:
> Hi !
>
> Sorry for the previous posting, im not yet completely awake ;o)
>
> > > >How can the param's be placed into a new hash?
> > >
> > > CGI.pm has a Vars() method, I believe, which returns a hash.
> > >
> > > use CGI;
> > > my $q = CGI->new;
--- John <[EMAIL PROTECTED]> wrote:
> Sorry, I posted this with the wrong subject and don't want it go
> get lost.
>
> If I use CGI, then reference $cgi->param( "some_variable" ), and
> some_variable is passed both as a hidden form field and as a URL
> parameter, will one reliably override the
--- Naveen Parmar <[EMAIL PROTECTED]> wrote:
> 1) How do you define global & lexical variables in Perl?
> 2) Is the arrow (->) a commonly used Perl operator?
>
> TIA,
> - NP
Global variables may be defined in several different manners.
1. Fully qualified with package name:
package Foo;
--- John <[EMAIL PROTECTED]> wrote:
> If you put them in a module are they parsed before they are called?
> Does it matter whether you use "use" or "require"? When is it better
> to specify subroutines when you use "use"?
See perldoc -f use and perldoc -f require.
"use" happens at compile tim
--- John <[EMAIL PROTECTED]> wrote:
> Does anyone have a cheetsheat for function prototyping - how to say
> that a parameter is a scalar, array, hash, reference, etc., and whether
> it is required or optional?
John,
Here's the cheatsheet for function prototypes:
Don't use 'em.
There are
--- Leon <[EMAIL PROTECTED]> wrote:
> Try this;
> my $total = "4536233";
> $total =~s/(.+)(\d{2})/$1.$2/;
> print $total;
Ooh... I'd be careful of a regex like that.
$ perl -e '
> $foo = "I told you 100 times not to do that :)";
> $foo =~ s/(.+)(\d{2})/$1.$2/;
> print $foo'
I told you 1.00 time
--- Craig Williams <[EMAIL PROTECTED]> wrote:
> I'm probably missing something obvious here, but heck it's a beginners list.
>
> the first time the log file is generated it contains the correct data.
> However any time it tries appending data to the existing log file, nothing
> gets written to i
--- Leon <[EMAIL PROTECTED]> wrote:
> - Original Message -
> From: "John W. Krahn" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
>
> > @array = qw(1 2 3 4 5);
> > @array = ();
> > print scalar @array, ": @array";
> > 0:
> >
> > As you can see @array = ""; and @array = undef; don't clear t
--- [EMAIL PROTECTED] wrote:
>
> I am a total beginner to perl. I wrote the program below to open a program
> file, read it line by line, and write each line to an output file after
> first putting two string lines out there. It compiles without errors but the
> output is a filename with zero len
--- Mark Ross <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I'm wondering if there is a difference between:
>
> $foo{'bar'}
> and
> $foo{bar}
>
> Is there any important difference? I prefer to use
> single quotes (my editor handles color coding better
> that way), but in examples I see from the list
--- Scott Lutz <[EMAIL PROTECTED]> wrote:
> I am curious if anyone is familiar with a way to tighten security on
> this script?
> We am experiencing some sort of script that is exploiting this code, and
> am looking for some previous experience here . .
>
> please
>
> Scott Lutz
Assuming that
--- "WANG, SHIPING [AG/1000]" <[EMAIL PROTECTED]> wrote:
> Hi, Question for your code:
>
> what is the meaning "require 5;"
Require with just a version number means that you must be running Perl 5 or better.
For example,
let's say I was to use the 'our' keyword. That was introduced in 5.6,
Okay, I'll confess. I stayed up wy too late last night and my Perl skills
seems inversely
proportional to my energy level. I wasn't paying attention to the fact that you were
doing a
foreach on a scalar, which is typically not ver useful.
Here's the code, as I understand your intent,
--- garrett esperum <[EMAIL PROTECTED]> wrote:
> Thanks! That helped,
> This is what my script looks like now:
>
> #!/usr/local/bin/perl -w
>
> use strict;
> use File::Path;
> use File::Copy;
>
> my $file;
> my $type;
> my $currentLocation;
> my $newLocation;
> my $owner;
> my $permissions;
> o
--- garrett esperum <[EMAIL PROTECTED]> wrote:
> Thanks! That helped,
> This is what my script looks like now:
>
> #!/usr/local/bin/perl -w
>
> use strict;
> use File::Path;
> use File::Copy;
>
> my $file;
> my $type;
> my $currentLocation;
> my $newLocation;
> my $owner;
> my $permissions;
>
--- zentara <[EMAIL PROTECTED]> wrote:
> Hi,
> I'm trying to find all .so.xxx files on my system.
> Eventually I want to do things with them, but for
> now I just want to identify them.
>
> I pretty much have it, except I'm lacking enough
> regex knowledge to separate out the so from the .so.
>
--- Venkatesh Karnam <[EMAIL PROTECTED]> wrote:
>
> I'm trying to run the following code and open a new window. But the
> program finishes without opening a window. Is there something wrong in
> the code?
You needed to add "MainLoop;" at the bottom:
#!/usr/local/bin/perl5 -w
use Tk;
use strict;
--- Scott <[EMAIL PROTECTED]> wrote:
> I admit I am a newbie and making this harder than it really is :) But, I
> have a program that is growing by the minute and I want to split it apart
> into chunks or sub routines.
>
> Here is an example:
>
> sub init_type_99{
> print NEWQUOTES "99";
--- Agustin Rivera <[EMAIL PROTECTED]> wrote:
> Is there a postgres pg.pm module available for Windows? I can't seem to
> locate one for anything other than *nixes.
>
> Thanks,
> Agustin Rivera
> Webmaster, Pollstar.com
> http://www.pollstar.com
Assuming that you are using DBI, you can either c
--- "John W. Krahn" <[EMAIL PROTECTED]> wrote:
> Peter Lemus wrote:
> >
> > I have a file "1st file) that reads...
> > one
> > two
> > three
> > four
> > five
> >
> > Anotherone "2nd file"that reads:
> > day
> > weeks
> > months
> > quarter
> > year
> > century
> >
> > I need to read the 2nd f
--- "Hanson, Robert" <[EMAIL PROTECTED]> wrote:
> But don't forget that there are other technologies other than servlets that
> cache code so that they don't need to be recompiled for each hit. ...And
> this being a Perl list there is mod_perl a plugin for Apache (free) and
> PerlEx for IIS (from
--- Eric Beaudoin <[EMAIL PROTECTED]> wrote:
> I was wondering if someone could explain why a variable define with a global scope
>was slower
> that one define within the local lexical scope when used in a loop?
If I recall correctly, you should usually get better performance from lexically scop
--- Jenda Krynicky <[EMAIL PROTECTED]> wrote:
> From: Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]>
>
> > Is it possible to use a simple perl script to do simple unix commands.
> > (similar to the shell scripts)?
Ugh. Don't have the original question, so I'll just respond
--- [EMAIL PROTECTED] wrote:
> > Curtis,
> > I couldn't find this module in my standard PERL lib path. I guess I
> should get this from cpan.org. Right?
> > [sathish]
Yes. You can get it from the mirror
http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search?dist=Text-CSV_XS-0.23
Note that this i
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote:
> o.k. here is another one:
>
> I still have a text file I am trying to get into a csv line, for example:
>
> cheese olives beans carrots
>
> So I put this into an array like:
>
> my @heade
--- Peter Scott <[EMAIL PROTECTED]> wrote:
> At 11:12 AM 1/3/02 -0700, Naeemah Small wrote:
> >I am creating a table form.
> >The reason why, is because I want it to be neat.
> >I am using CGI.pm
> >
> >This is my first time making a form in perl.
> >How do I do it.
>
> You can't avoid the tutori
--- Connie Chan <[EMAIL PROTECTED]> wrote:
> say, $a = "1234:4321;abcde;fghij::;klmno";
> In case, I want $x = "1234" , $y = "4321", $data = "abcde;fghij::;klmno"
> Then I do in this way :
>
> @dataLine = split(/;/, $a);
> ($x, $y) = split (/:/, $dataLine[0]);
> $data = join(";", shift(@dataLine
--- Agustin Rivera <[EMAIL PROTECTED]> wrote:
> Ok, the local Linux guru has proclaimed that C would be faster than Perl. I
> know C is very effecient so I don't really doubt him, but my question is
> would it make that much of a difference? I certainly wouldn't mind learning
> C, the only q
--- James Kelty <[EMAIL PROTECTED]> wrote:
> Below is a hash array...
>
> %hash('james' => '1',
> 'kelty' => '2',
> 'brian' => '3');
>
> This is my normal structure for a hash array, but I was wondering if it was
> possible to have multiple values for a key? I.e.
>
> %hash('james' =
Okay, this is not exactly a beginner's question, but I can't seem to find an answer to
this
anywhere.
Does anyone have any samples of XS, SWIG, or Inline::C code (preferably the latter)
that accesses
scratchpad variables? I've looked and can't seem to find any. Reading through the
Perl sourc
--- Scott Lutz <[EMAIL PROTECTED]> wrote:
> I am trying to get the date to create a file named after the current
> date.
> ( running under win32 )
>
> here is the code :
> my $datestamp=`date`;
> print "File name created : $datestamp\n";
'date', on a Windows box, allows you to display or set t
--- Scott Lutz <[EMAIL PROTECTED]> wrote:
> below is a snip of a script that is to monitor disk usage, and I want to
> format the output in a fashion
> like this :
>
> ___usage_in_bytes___\t___directory_name___
>
> the problem being that I can't find out what the formatting characters
> mean in
--- Bob Showalter <[EMAIL PROTECTED]> wrote:
> > With the '=>' (a.k.a. 'fat comma'), the left side of the operator
> > does no (sic) need to be quoted IF IT DOES NOT CONTAIN WHITESPACE.
>
> Actually, it needs to be quoted if it doesn't look like an identifier,
> (with an optional leading
--- Shawn <[EMAIL PROTECTED]> wrote:
>
> > #!/usr/bin/perl -w
> > use strict;
> > my %test_hash = (
> > one => 'no problem',
> > two => 'still no problem'
> > );
> > print $test_hash{ one }; # prints 'no problem' (without quotes)
>
> #!/usr/bin/perl -w
>
--- Shawn <[EMAIL PROTECTED]> wrote:
> > > Bare words as hash keys.
> >
> > And that's a problem how?
>
> It's a big problem when using 'strict'...
Shawn,
Could you give an example of that?
#!/usr/bin/perl -w
use strict;
my %test_hash = (
one => 'no problem',
--- Chris Zampese <[EMAIL PROTECTED]> wrote:
> I have a program that takes input from a form, splits it and saves the values in an
>array -
> $INPUT{field}
> I then create a NET::SMTP mail instance, and message is a string ($mymessage) in
>which I have
> inserted the form values.
> This is so
--- Prabhu Gurumurthy <[EMAIL PROTECTED]> wrote:
> Hi All,
>
> I have a C program which i want to convert it into perl
> In the C program it is given like this
>
> typedef unsigned shortu_int16;
> #define dataLen 4
> #define keyLen52
> #define userke
--- "McCollum, Frank" <[EMAIL PROTECTED]> wrote:
> Does anyone know where to find resources on parsing textual content out of
> an HTML page? I am trying to grab values out of a table on a website. I
> can grab the table, but I am having trouble grabbing the actual values from
> it...
Frank,
Y
--- walter valenti <[EMAIL PROTECTED]> wrote:
> Hi,
> someone knows, how insert text gron STDIN, without see this on the
> shell??
>
> For example for insert a password..
Walter,
I *think* what you are asking is "How do I get a password from STDIN without it
showing up on the
screen?"
use
--- Connie Chan <[EMAIL PROTECTED]> wrote:
> Since we know this : $string =~ s/([a-fA-F0-9][a-fA-F0-9])/pack ("C", hex($1))/eg;
>
> is a statement which can converting back the "real string" from
> a form field, but, could anybody tell how to convert the "real string"
> to the "long long" string
--- Curtis Poe <[EMAIL PROTECTED]> wrote:
> 7. You should be using strict (not everyone does, but code like this tells me the
>programmer
> needs it).
Aack! I rereading the code, I saw that the code is strict compliant and the
programmer may very
well be using that. The las
--- Chris Zampese <[EMAIL PROTECTED]> wrote:
> When I execute the folowing script (to insert form input into $In), I get an error
>message
> saying
>
> unmatched right curly bracket line 60 at end of line
> syntax error near "}" Line 60
>
> But I have been through the code over and ove
--- Antti Eskola <[EMAIL PROTECTED]> wrote:
> Hi everybody.
>
> is the some wrong in this syntax, i have a mystical, possibly a infinite
> loop proble.
>
> if(!(("Avataanyhteys="."$lomaketaulu[1]") eq $etahallinta[$i])){for_x7();}
>
>
> Regards,
> <|- Antti Eskola -|>
Your syntax is correct,
--- Chris Zampese <[EMAIL PROTECTED]> wrote:
> How do I call a subroutine in a cgi script. I thought that it was just
>
> subroutine_name();
>
> but that does not seem to be working for me?
>
> You guys are great. Thanks for your help (both from answering my questions, and
>from ans
--- Ryan Guy <[EMAIL PROTECTED]> wrote:
> I want to get a consensus here. Do you think one liners are faster than
> more extensive programs. Discuss.
What, precisely, is there to discuss? Faster to execute? Faster to get work done?
Faster to
waste time with? One-liners are often used for a
--- Ben Curran <[EMAIL PROTECTED]> wrote:
> Trying to alter the value of $testfile depending on how many arguments are
> given, using the following:
>
> if (@ARGV == 2) {
> chdir $ARGV[0];
> my $testfile = $ARGV[1];
> }
> else {
> my $testfile = $ARGV[0];
> }
This is syntactically correct, but s
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote:
> Hello All,
>
> I am still having trouble printing out a second lot of hash keys in a
> hash of a hash. Here is what I have so far. Any ideas or suggestions
> will be greatly appriciated...
>
> %users = (
>'user1' => {
>
--- Chris Zubrzycki <[EMAIL PROTECTED]> wrote:
> Hey everybody. I have a simple problem that has been stumping me. I'm
> using Perl 5.6.1 on Mac OS X 10.1.1. This is a sub for opening a file in
> my program. this is the sub, and the problem is when i run it, if i do
> not enter a number 1-3, it
--- Lance Prais <[EMAIL PROTECTED]> wrote:
> I am unseeing the following piece of code to send email. In order for this
> email to be generated there needs to be an error in my script.
>
> use Mail::Sendmail;#Send and email if there are errors
> %mail = ( To => '[EM
--- Rob <[EMAIL PROTECTED]> wrote:
> Thanks; I noticed you removed the () associated with the my portion, is
> there a good rule to follow as to when the () are necessary?
>
> Thanks again(your one of the guys whos post i always read ;^)
>
> > Change
> >
> > my($nameIn) = $ARGV[0];
> >
>
--- Rob <[EMAIL PROTECTED]> wrote:
> Hi guys,
>
> The following script works as I want except for one thing; if I call the
> script with no arguments I want it to list the whole phone book, which it
> does, but it also gives me two of the "Use of
> uninitialized value" warnings at the end. What
--- VSNL <[EMAIL PROTECTED]> wrote:
> I am working on a windows platform I would like to install a perl module without
>using the PPM
Use nmake.exe. Instructions: http://www.perlmonks.org/index.pl?node_id=129184
Cheers,
Curtis "Ovid" Poe
=
Senior Programmer
Onsite! Technology (http://www
--- Lance Prais <[EMAIL PROTECTED]> wrote:
> Is it possible in Perl to compose and IF Statement as follows:
>
>
> if [condition] or [condition]
>
> Do this
>
> else
>
> Do this
Lance,
Yes, you can do this. Here's one way:
my $x = 7;
if ( $x > 5 or $foo eq 'bar' ) {
# do t
--- Shawn <[EMAIL PROTECTED]> wrote:
> Geez, if your gonna flame a newcomer, at least answer the question while
> your at it.
This was a flame?
> > We just discussed this today. Please do NOT crosspost. This is better in
> the [EMAIL PROTECTED]
> > list. Further, having a useful subject line
We just discussed this today. Please do NOT crosspost. This is better in the
[EMAIL PROTECTED]
list. Further, having a useful subject line helps. If I had a penny for every
unhelpful subject
line I've seen today... hold on a minute... I'd have $1.27 :)
(tip 'o the keyboard to Terry Pratchet
--- Etienne Marcotte <[EMAIL PROTECTED]> wrote:
> Little typo in your message, I've never seen 23 bits OS...:
Yes, but MS puts out a 2-bit OS :)
=
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
__
--- "Collins, Joe (EDSI\\BDR)" <[EMAIL PROTECTED]> wrote:
> Hi,
>
> How can I convert the scalar 'A' (or 'a') to 1, 'B' to 2 and so on?
my %alpha_to_num;
@alpha_to_num{ A .. Z } = ( 1 .. 26 );
print $alpha_to_num{ A };
> Related: how do I get the true internal value for A, i.e. ascii value?
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote:
> Hi Curtis,
>
> Yes, I have considered as much as I can about this entire project.
> Firstly...
>
> 1 - Thepage is transfered over SSL.
Good. Can you set it up so that it breaks if you try to send it over an insecure
channel?
> 2 - The u
--- "John W. Krahn" <[EMAIL PROTECTED]> wrote:
> $ perl -le'$[=5;
> @test = qw(one two three four five);
> $reftest = \@test;
> print $#$reftest + 1;
> print scalar @$reftest;
> '
> 10
> 5
Yes, but $[ is deprecated and therefore cheating. You deserve what you get if you use
it :)
Cheers,
Curti
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote:
> Hey all,
>
> I have just finally finished a WWW based Perl program that can
> add/delete and change users password from a WWW based script. I have
> tried to make this script as secure as I can. The script can modify the
> /etc/passwd files
--- "F.H" <[EMAIL PROTECTED]> wrote:
> Hi There,
> I am trying to get a count of elements of a reference to an array.
> $reftest = \@test
> $#reftest, doesn't seem to yield the number of arry elements.
> I appreciate if someone can help
> Thanks
> I.S
In any event, "print $#test" will print the v
Okay, this is really, really sloppy, but it's much closer in intent to what Randal was
talking
about (only relevant code is presented):
my @data = qw/
all_clp5_cl p299_cl imp143_cl imp5_cl
all_cl_think p5_cl_think p299_cl_think imp143_cl
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote:
> Hello and thanks so much for your replies, but don't I need a \! To denote a
> literal ! and what about spaces before the bang - don't I want to lose them
> too - what about:
I don't know. Do you want to lose them? Up to you. Yo
--- Curtis Poe <[EMAIL PROTECTED]> wrote:
> with the caveat that any
> exclamation points that don't mark quotes are going to cause problems.
Ooh. That was coherent.
Time for more caffeine. :)
=
Senior Programmer
Onsite! Technology (http://www.onsitetech.com
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote:
> o.k. another regex issue . . . I want a one-liner that can remove everything
> after a given character: i.e.
>
> in this case everything after ! (fortran comment):
>
> would this work:
>
> perl -npe 's/\!.+$//'
>
> my thinking i
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote:
> o.k. another regex issue . . . I want a one-liner that can remove everything
> after a given character: i.e.
>
> in this case everything after ! (fortran comment):
>
> would this work:
>
> perl -npe 's/\!.+$//'
>
> my thinking i
--- Alan Hogue <[EMAIL PROTECTED]> wrote:
> Hello,
>
> I have a question about which of the many html related
> modules out there I should use for a particular
> project.
[snip]
> So, which modules might be useful for putting the data
> together into links in, say, a table, and the table
> int
--- Mike Butler <[EMAIL PROTECTED]> wrote:
> I need to create a status bar for users who are
> uploading pdf files, some of them quite large, to a
> web site. Some of the users are on dial-up and the
> upload time could be quite lengthy, so they need to
> know that their upload is progressing and
--- Mike Butler <[EMAIL PROTECTED]> wrote:
> I need to create a status bar for users who are
> uploading pdf files, some of them quite large, to a
> web site. Some of the users are on dial-up and the
> upload time could be quite lengthy, so they need to
> know that their upload is progressing and
--- Mike Gargiullo <[EMAIL PROTECTED]> wrote:
> Oracle is
>
> How many inserts/second are you taking about?
If anyone would like to follow-up on this, it might be better to email me directly
rather than
continue this very off-topic thread :)
I don't know how many inserts per second.
--- Etienne Marcotte <[EMAIL PROTECTED]> wrote:
> MySQL is about speed, unless you do tons of inserts and absolutely can't
> afford table locking, go with mysql..
Regrettably, we do have to handle tons of inserts, so this is problematic. The
software that
we're evaluating databases for offers
--- "Kiarash Em." <[EMAIL PROTECTED]> wrote:
>
> mySQL vs postgreSQL?!?!
>
> check this out
>
> http://www.phpbuilder.com/columns/tim2705.php3?page=1
>
> ;)
While we're on the subject of databases, my company is considering switching from MS
SQL Server.
We absolutely need transactions,
--- Agustin Rivera <[EMAIL PROTECTED]> wrote:
> Is there a quick, simple command I can use to disable Modperl on all
> variables in script, without having to qw' then all?
>
> Agustin Rivera
> Webmaster, Pollstar.com
> http://www.pollstar.com
Agustin,
I think you have a misunderstanding here.
Sent this to the wrong list! Sorry.
--- Curtis Poe <[EMAIL PROTECTED]> wrote:
> Date: Fri, 7 Dec 2001 15:30:59 -0800 (PST)
> From: Curtis Poe <[EMAIL PROTECTED]>
> Reply-to: [EMAIL PROTECTED]
> Subject: Fwd: RE: Passing variables
> To: CGI Beginners <[EMAIL PROT
--- "Yacketta, Ronald" <[EMAIL PROTECTED]> wrote:
> Folks,
>
> I have just completed a front-end enduser script that will take numerous
> input values that
> need to be passed onto other perl scripts depending on the user input.
>
> Is there a clean way (other than command line) to pass on the v
--- Elaine -HFB- Ashton <[EMAIL PROTECTED]> wrote:
> Curtis Poe [[EMAIL PROTECTED]] quoth:
> *>
> *>This probably is not the most helpful comment, but one way to tell
> *>if something is encrypted is to compress the data using Archive::Zip
> *>or something simi
--- Ray Murphy <[EMAIL PROTECTED]> wrote:
> Hello,
>
> Want to make sure I'm not missing anything here. My
> task is to see if a file looks like it's encrypted.
> I'm splitting the path/filename/extension via
> File::Basename and checking to see if the extension is
> ..pgp or .gpg. I'm also ch
--- Claude Jones <[EMAIL PROTECTED]> wrote:
> This is my first post, and I hope it's not too newbie even for a list with
> this name. I'm just beginning to learn Perl and I have successfully got some
> scripts working on our website to handle form submissions. We are in process
> of bringing our s
--- "Nguyen, Andy" <[EMAIL PROTECTED]> wrote:
> Hi List,
>
> I am new to perl and looking for a shortcut way of doing this.
>
> # $letter could be any letter from A to L.
> if ( $letter eq "A" || $letter "B" || $letter "C" || $letter eq "D" ||
>$letter eq
> "L" )
> {
> do somethi
--- "AMORE,JUAN (HP-Roseville,ex1)" <[EMAIL PROTECTED]> wrote:
>
> Hello Prel Gurus,
> I've learned more as time go's on, especially with all your HELP:)
> My last attempt has been somewhat difficult.
> Can anyone advise regarding CGI perl scripts.
> I need to inject a if elsif else statement in
--- louie miranda <[EMAIL PROTECTED]> wrote:
> Hi, im really clueless..
>
> #!/usr/bin/perl
>
> $logfile = '/etc/services';
> $date = 'date';
>
> open(INFO, $logfile);
> @lines = ;
> close(INFO);
> print @lines;
>
> All i have is this line of code..
> what i want to make is,
>
> ex:
> the per
--- Kevin Meltzer <[EMAIL PROTECTED]> wrote:
> I also think cnn.com ha(s|d) a 'backdoor' with simple text for headlines. I don't
> recall the URL, maybe someone else has it.
It may be gone. This *used* to be that backdoor:
http://www8.cnn.com/HLN/virtual/swf.headline.txt
Cheers,
Curtis "Ovid"
--- Sidharth Malhotra <[EMAIL PROTECTED]> wrote:
> While were on this, I'm taking an intro to Data Structures class and
> were learning all about the different sorting methods ... Insertsort,
> mergesort etc. What kind of sorting method perl's sort() use?
>
> Sid.
Sid,
Perl's sort function is
--- "Faulkingham, Shawn" <[EMAIL PROTECTED]> wrote:
> Does anyone know of a module that will retrieve extended attributes for
> file? I am looking for the last accessed date on a file, to produce of list
> of old files. I am sure that it can be done, I am just unaware of a module
> that does this
--- Etienne Marcotte <[EMAIL PROTECTED]> wrote:
> This is a very newbie question..
>
> When sending arguments to a sub, is it preferable to send a pointer to
> this value or the value itself. Or after x arguments it's better to send
> references?
>
> Etienne
Etienne,
I think Brett W. McCoy gav
--- Etienne Marcotte <[EMAIL PROTECTED]> wrote:
> I saw somewhere on the web a good regexp for removing html tags. Can't
> re-find it and it needed some minor mods.
Etienne,
No offense, but there are not good regexes for removing HTML tags. Here are some
legal tags that
break most regular expr
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote:
> Curtis,
>
> Cheers for that that makes alot more sense now :). Yes your are correct
> about the /etc/passwd file. It's all well and good to be able to issue
> that command from a command line, but what if I wanted to issue the
> exact same code
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> Below is a chunk of code that I don't really know what's going on?
> Could some one give me a few ideas?
>
> perl -F: -i -ape'$F[3] == 45 && s/^/*/' /etc/passwd
>
> Regards,
>
> Dan
Dan,
Here's a list of the command line switches
> #!d:\perl\bin\perl.exe -w
> use CGI::Carp (fatalsToBrowser);
>
> # Get the input
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>
> # Split the name-value pairs
> @pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs) {
> ($name, $value) = split(/=/, $pair);
>
> # Un-Webify plus signs
--- "Balint, Jess" <[EMAIL PROTECTED]> wrote:
> Are there any downsides to not using the OO syntax?
Not using the OO syntax can have some problems. First, you're importing the functions
into your
programs namespace. Consider:
#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;
-- Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> wrote:
> On Nov 9, Balint, Jess said:
>
> >Hello all, I was wonder if there is a way to do this with less `$query->`'s.
> >And yes, I know the table's not perfect. Any input would be appreciated.
> >Thanks.
>
> Don't use the OO syntax then.
>
> use C
I currently live in Portland, Oregon, USA. Recently moved back here from Amsterdam,
the
Netherlands and missing Europe more than I thought :(
Cheers,
Curtis "Ovid" Poe
=
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
_
--- Etienne Marcotte <[EMAIL PROTECTED]> wrote:
> You may use your cgi-lib it's fine:-)
Aside from the fact that cgi-lib.pl is not actively maintained, it has a few other
problems:
http://www.bayview.com/training/mindsrc-bof/1997-04-24/pros-cons.html
Cheers,
Curtis "Ovid" Poe
=
Senior Pro
--- [EMAIL PROTECTED] wrote:
> Hello all,
>
> I am trying to process a menu option but for some reason perl causes the
> value to come up blank can anyone help? This is only hapening on the menu
> items.
>
> Is there a trick to sending drop down menus?
>
> TNX,
>
> Mike
Mike,
What do you mea
--- Jon Cassorla <[EMAIL PROTECTED]> wrote:
>
> There are many ways to do this. Here is just one example using a
> closure.
>
> package Remember;
>
> # this is a closure
> {
> my $savedData = 0;# only accessible within this scope; side
> effect is that
> # it
1 - 100 of 167 matches
Mail list logo