xsize
Oct 20 2004, 04:42 PM
| | My 3th Perl Programm
The current dir show...
CODE [br]#!/usr/local/bin/perl[br][/br]# dir path [/br]$sdir='.';[br]opendir(DIR,$sdir) || die "can't opendir $some_dir: $!";[/br]@dots = grep {-d "$sdir/$_"} readdir(DIR);[br]rewinddir(DIR);[/br]@fils = grep {-f "$sdir/$_"} readdir(DIR);[br]foreach (@dots){[/br] print "$_\n";[br]}[/br]foreach (@fils){[br] print "$_\n";[br]}[/br]closedir DIR;[/br] |
Comment/Reply (w/o sign-up)
Similar Topics
Keywords : Perl Programms- How To Take Image Files In Other Sites By Perl
- (0)
- Perl For Automated Web Form Search
- (1)
Hi all, I'd like to write a script to automate a search in order to collect data from an online
database. The database is an archive of newspaper articles. The search is for certain words/text. It
is searchable via a form only. The rub is that only a small portion (a month) at a time is
searchable. I need to search every day for 50 years or so. Manually, this would take a considerable
amount of time. I'm thinking of using perl or ruby or something similar. I am an absolute
beginner with scripting and haven't done much formal learning in the subject since a ...
Perl Interactive Mode
- (2)
I am kind of wondering why for some reason, Perl does not have an interactive mode in its parser
like Pythong does in its. Also, Python comes pre-packaged with a GUI like parser and it is written
in Python\Tk (I think that's what its called). I know that Perl has Perl\Tk, and I know it has
an eval function. Why is there no interactive parser like that. I think I could come up with one.
Anybody, wanna see if we can build a interactive module like the Python one?...
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....
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 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....
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...
Perl Help
- How to install modules (1)
How do I install perl modules??...
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...
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?...
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 $days=0; } else{ $days=int($secs/(60*60*24)); }
if((int($secs%60*60*24)) $hours=0; } else{ $hours=int( ($secs%(60*60*24) ) /
(60*60)); } if( int(($secs % (60*60*24)) % (60*60)) $minutes=0; $...
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...
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...
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/%( ) /pack("C",
hex($1))/eg; $FORM{$name} = $value; } open (QUOTE, '>>logs.txt'); print QUOTE "
$FORM{quote} \n\n"; print QUOTE " \n\n"; close (QUOTE); &thx; } else { &error; } I
have n...
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 " Mind of Perl "; print " "; print " Hay Cgi-BIn "; print "
" if you have other perl script, post it in this topic. How write perl counter?...
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....
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 Programming
- First, Second, .... (0)
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/%(
{2})/pack('C',hex($1))/ge; return $val } $dataf:='couner.dat'; open(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 " "; print "$Dat"; print
" "; ...
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 " "; print "Script_name:
$ENV{'SCRIPT_NAME'} \n"; print "S_Full_name: $ENV{'SCRIPT_FILENAME'} \n"; print
join(" ",map("$_=$ENV{$_}",keys %ENV)); print " "; ...
Perl And Php
- (7)
Is perl better than php in any way?...
Perl
- (4)
Perl is great to have on your website If you run a message board or chat room ect......
Looking for perl, programms
|
Searching Video's for perl, programms
See Also,
|
advertisement
|
|