Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
I copied this code out of the FAQ s
the error you are getting is due to the fact you are using 'use strict' ... you have to declare all variables... so you need to add this line: [COLOR=blue]my %file1hash;[/blue] before you use it (also make sure its not in any blocks). -
<!--#exec cgi="http://www.oursite.org/cgi-bin/ptslog.cgi"-->
what webserver is the machine running? -
Attachments in perl
and then there are the simple interfaces that utilize NET::SMTP the modules Mail::Mailer and Mime::Lite..... -
Array of Hashes
you can do this: my %temp; %temp = %{$sortedPast[$i]}; %{$sortedPast[$i]} = %{$sortedPast[$z]}; %{$sortedPast[$z]} = %temp; -
-
UK - Email to be read by anyone other than recipitant
PerryMC wrote: Isn't privacy taken too far anyway, if you're not doing anything you feel guilty about, why would you care who knows about it? It allows all the scum, whether they are floating on the top of the pond of humanity or sliming along on the bottom to get away with far too much. What...- yauncin
- Post #8
- Forum: Tech Industry Trends
-
ksh to perl??
Sorry... here is an explanation. The client's browser is expecting 'header' information. The 'content-type: text/html' lets the browser know what type of information is being sent. There is other header info you can send also, but the above info is all you need to print to the browser. -
ksh to perl??
you could have just added this to the shell script. where you have: function HEADER { echo "<html> do this: function HEADER { echo "content-type: text/html <html> -
How to delete an item from a text file
A couple of things to be aware of: my $ip = <STDIN>; $ip will also hold a newline character at the end of the string. You can get rid of it with chomp $ip;. Also, when you: @file = <FILE>; each element of @file will also contain a newline character at the end. You can get rid of them with... -
How to delete an item from a text file
At the end of your code: DeleteIt($ip); 'ipdrop $ip off'; <- Is this a typo? $SIG{CHLD} = 'IGNORE'; -
problems using MIME::Lite
It would seem you also need to get LWP/UserAgent.pm -
Adding a file to an array, but this code is not good
I assume you are using perl. why not just do this foreach $temp_file (@ls) { foreach $notthisfile (@excludefiles) { unless ($temp_file eq $notthisfile) { #code here } } } -
length of array not understood
and since you can force an array into a scalar context its conceivable to do this: print my $num = @array; heh -
Perl and Access
No.. but if you want an example: http://www.mvps.org/access/general/gen0022.htm -
Prem. end of script headers error...
open the file from the command line like so: vi -b file.cgi If you see a lot of ^M then you need to get rid of them. *nix machines use newlines (\n in perl) for line deliminators and windows uses carriage return linefeeds (\n\r in perl or is it the other way around). So you can do something... -
Learning Python
Yeah I figure that perl is the only scripting language I will need... well besides bash shell scripting. I had to learn VB for my previous job and that wasn't much of a good time.. as a language I think it is bad. I've moved on to C and C++ (which I love) for my current job and I'm having to... -
Using a config file with Perl program
you can do something like this --config file-- somefile.config name=john doe address=5555 some road city=new york state=new york zip=55555 --perl script-- #!/usr/bin/perl -w use strict; my %config; open CONFIGFILE, 'somefile.config'; while (<CONFIGFILE>) { next if /^\s+$/; my($key... -
Extract from a list and a file
yeah sorry about that... GIGO... he seems to be missing one too i just cut and pasted.... i meant; for ($i=0; $MYLIST[$i]; $i++) { if ($MYLIST[$i] eq $fldName) { print "$MYLIST[$i]"; next LINE; } } it doesn't really matter since his code should work (well... -
ASCII values in perl????
unless you just want to do this yourself there are a lot of encryption modules already. And theres always the crypt function but i'm not sure it works under windows. -
Extract from a list and a file
try: for ($i=0; $MYLIST[$i]; $i++) { if ($MYLIST[$i] eq $fldName){ print "$MYLIST[$i]"; next LINE; } qw() stands for quote words. instead of @array = ('this', 'that', 'theother'); you can do @array = (this that theother); lets you be just a little more lazy.
