I am trying to write my very own first "useful" program and I am in need of some help. I do have a lot of ressources (a book by Andrew Johnson, the yellow book for dummies and lots of hypertexts) but I cannot seem to get things done the way they're supposed to work. I am completely new to Perl and programming as well.
So here's what I want to do:
I want to write a little script that will read the files from a directory and make html links out of it. The data files look somewhat like this:
Datafile: Linkname\tDescription\tURL\tLanguage
Here's what I have so far: #!/usr/bin/perl use strict; use diagnostics;
#read filenames my @filenames = glob"./data/*"; print "filenames read...\n"; #sort files @filenames = sort @filenames; print "@filenames\n";
#output link for every file
foreach my $filename (@filenames) {
open(FILE, $filename) or die "cannot open $filename!\n";
while (<FILE>) {
#read every single lines and output HTML
print "$filename\n";
}
close FILE ;
}My questions so far (please don't give me a complete solution, I wanna work my way into Perl) is, why does the last print "$filename\n"; print every filename twice? And how can I get rid of the directoy info up to the last / (./data/perl.txt)? Will that require knowledge of the mystical RegExp?
How can I get the tab delimited strings in my datafile into an array so that I can access that array like this: print "<a href="$hyperlink[3]">"; and so on?
I hope this is not too trivial, but I've been trying to nail things down for the last two days, I am glad I found this diagnostics option but now I am stuck..
Any help is greatly appreciated!
Stephan - who has never written a programm before.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
