xsize
Oct 20 2004, 04:45 PM
My Second Perl Programm The Simple counter... u must create the file: counter.dat CODE
#!/usr/bin/perl
#counter.cgi
urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
return $val
}
$dataf:='couner.dat';
open(F,"+<$dataf") || die "can't open file counter.dat";
flock(F,$LOCK_EX);
@cnt=<F>;
$Dat=@cnt
$ip=$ENV('REMOTE_ADDR');
($count,$ip)=split(/\s+/,@Dat);
$count++;
$Dat=join(' ',$count,$ip);
fseek(F,0,0);
print F "$Dat";
truncate(F,tell(F));
flock(F,$LOCK_UN);
close(F);
print "Content-Type: text/html\n\n";
print "<HTML><BODY><CENTER><small>";
print "$Dat";
print "<\small><\CENTER><\BODY><HTML>";
Reply
Recent Queries:--
count hours minutes seconds as seconds php mysql - 30.61 hr back.
-
urldecode perl - 272.37 hr back.
-
perl opendir show content - 408.21 hr back.
-
perl urldecode - 454.28 hr back.
-
perl programm - 472.67 hr back.
-
href in cgi perl programming encrypt - 496.56 hr back.
-
perl count seconds - 223.88 hr back.
Similar Topics
Keywords : perl, programming
- Perl Interactive Mode
(2)
Perl As A Way To Program Desktop Applications
(8) I know that Perl is very common for CGI scripts and is used in many web applications. I also know
that Perl can be run from the command-line for basic applications. Anybody ever make desktop
applications in Perl or do most people strictly use Perl for CGI and use C(++) or Visual Basic for
desktop applications. I am curious because I would like to attempt to create a game in Perl and
distribute it. Of course it could only work for people who have Perl installed. Just wondering.....
Where Do I Install Perl Scripts?
Help, i need somebody help... :P (6) Where do i install perl scripts? I couldn't find the path (usr/bin/perl/) and i tried to put one
script on /home/ /public_html and execute it from a php script, but, nothing happened, the script
was not working, and yes, the script works properly. The reason for not working is the wrong path i
suppose.....
What Is Perl ? For A Layman Like Me !
(7) hi, i was wondering what perl was i downloaded Activeperl thinking it is some thing like a CMS lol
but.... well u know what is it what can you do with it, i really want to know why it is soo famous ?
hehe thx Scan....
Few Perl Snippets For Misc Things
(2) Convert any number of seconds to days,hours,minutes and seconds. Useful for converting unix time
differences into days,hours,minutes and seconds. Inputs: ConvertSeconds(no. of seconds) Returns:
$days,$hours,$minutes,$seconds Assumes: 100% Accurate CODE
sub ConvertSeconds { my $secs=shift; if($secs<(60*60*24)){
$days=0; } else{ $days=int($secs/(60*60*24)); }
if((int($secs%60*60*24))<60*60){ $hours....
Good Programming Practice
(7) I am creating a webs interface to a database which as you would imagine allows the user to search
the database for soemthing, and on submitting search the results are shown. So far i have done this
in just one .cgi program. I know i could have write 2 seperate programs to accomplish this task- i.e
one passing parameters to another. My question is this- I'm going to have to make all the search
results in a way such that you click on one and you display all the info on that particular result.
But is it good practice to say have multiple .cgi files with them all linked ....
Call C Code From Perl
(1) I want to call a C routine from Perl program. For this I understand that, I should use XS interface
language & write some layer between Perl and C. Can anyone tell me the following: 1. What are
development tools & settings I need to have for this development? 2. What are the steps to carryout
for developing the interface and connect to Perl? Please note that, I am new to this kind of work.
However, I have experience on C & to some extent Perl. I am in hurry..please help me. Thanks in
advance, kvarnerexpress....
Matching Accents In Perl Regular Expresions
matching accents in perl regular expresi (1) Does anyone knows how can i match accents in perl regular expresions. I do not manage to match not
english characaters such as á, é or ñ. I hope there is someone taht knows the answer because i have
been searching in google a long time without success. Thanks in advanced....
Xmlhttprequest And Perl
(2) Hi all I've been using XMLHttpRequest with PHP but the time has come where i need the features
of perl! But i've fallen at the first hurdle.... when using XMLHttpRequest with php you can
send a response back by using "echo" I cant seem to find a way of sending a response back in perl,
anyone know of something similar to echo? I've looked through LWP but couldnt find anything
suitable?? thanks kvarnerexpress....
Compiling Perl / Python?
is there a way to compile perl/python? (3) so im pretty new to programming in general, but these two languages i am even newer to. I'm
trying to find out if there is a way to compile a perl/python program so that it is encrypted, and
the source could not be read. or are these languages just scripts? Thanks.....
Perl Interview Questions
(1) Hi, I have to interview a job candidate for a position at my company. I have been put in charge of
the perl questions. While I know a pretty good amount of perl, I was wondering if any of you could
provide some good questions (w/ the answers please) that I might be able to ask. Thanks!....
Perl/cgi Help!
HTML skills required also. (3) Im sort of new with perl and I know the basics. Lemme paste the code ... CODE
#!/usr/bin/perl -w if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,
$buffer); foreach $pair (@pairs) { ($name, $value) =
split(/=/, $pair); $value =~ tr/+/ /; $value =~
s/%([a-fA-F0-9][a-fA-F0-9])<br>/pack("C",
hex($1))/eg; &#....
Perl Progamming/scripting
Insighting discussion on Perl (3) Hi there, I like using Perl for programming. Most of the work I do with it eventually involves
the web. I don't use it in a CGI environment though, I use it as a tier two processing
language. How do you use perl (if at all), or why do you not like perl vs. your preferred
language? Thanks, Kristofer Hoch ----------------- "Not a Perl Biggot"....
Easy Authenication With Cgi/perl
(0) I've been thinking for a while about how to authenticate users on my website ... i just wanted
something simple, maybe cookies are good, etc. I found the following -->
http://www.cgi101.com/book/ch20/ Not that I need anything super secure, and maybe it's worth
looking into encrypting the password table in the database, i don't know. it's pretty cool
though ... enjoy.....
Perl V.s. Php
PHP vs PERL : Comparision of PHP & PERL (5) Now I've always wanted to make a web game. Now I have time. I keep getting suggested both php
and perl. I know alot about php and stuff. but I hardly know anything about perl .So what would (if
anything) make perl better than php when programming a web game?....
Using Mysql With Perl
(1) I don't want to learn PHP right now, and I know MySQL can be used with Perl. However, I do not
know how to use it with Perl at all. I just would like to know how to use it, in a basic script for
any purpose. I have a Perl book, but it only tells me how to use Perl with the Win32::ODBC Module.
Could someone please give me a general description of how to use Perl with MySQL? Thanks in
Advance.....
Perl Programms
First, second, ... (0) My 3th Perl Programm The current dir show... CODE #!/usr/local/bin/perl # dir path
$sdir='.'; opendir(DIR,$sdir) || die "can't opendir
$some_dir: $!"; @dots = grep {-d "$sdir/$_"}
readdir(DIR); rewinddir(DIR); @fils = grep {-f "$sdir/$_"}
readdir(DIR); foreach (@dots){ print "$_\n"; } foreach
(@fils){ print "$_\n"; } closedir DIR; ....
Second Perl Programm
Simple counter... (0) View all information abaut web host: CODE #!/usr/bin/perl #down.cgi use CGI
qw(param); use CGI::Carp qw(fatalsToBrowser); print "Content-Type:
text/html\n\n"; print "<html><body>"; print
"Script_name: $ENV{'SCRIPT_NAME'}<br>\n"; print
"S_Full_name: $ENV{'SCRIPT_FILENAME'}<br>\n"; print
join("<br>",map("$_=$ENV{$_}",keys %ENV));
print "</body></ht....
First Perl Programm
My first Perl programm (5) I wonna show you my first perl programm: CODE #!/usr/bin/perl # See Log file print
"Content-type: text/html\n\n"; print
"<HTML><HEAD><TITLE>Mind of Perl</TITLE>"; print
"<head><body><p>"; print "<h1>Hay
Cgi-BIn</h1>"; print "</body></html>" if you have other
perl script, post it in this topic. How write perl counter?....
Perl And Php
(7) Is perl better than php in any way?....
Perl Help
How to install modules (1) How do I install perl modules??....
Perl
(4) Perl is great to have on your website If you run a message board or chat room ect.......
Looking for perl, programming
|
|
Searching Video's for perl, programming
|
advertisement
|
|
