\| $items\[2\]\\ | $items\[4\]\
\ | $items\[5\]\\ | $items\[6\]\
\ | $items\[8\]\\
\_EOF\_
} @rows;
\# Här skrivs avslutande HTML in
close OUTFILE;
Permalänk: https://www.webforum.nu/p/340497
## #3 — RGB, 2000-03-29T10:35Z
Tackar :)
//R.G.B
Permalänk: https://www.webforum.nu/p/340498
## #4 — woodi, 2000-03-30T13:22Z
Ovanstående kod fungerar inte för mig..
Får följande fel när jag kör koden i konsolen:
syntax error at ./golf.pl line 20, near "@rows
\# Här skrivs avslutande HTML in
close"
Execution of ./golf.pl aborted due to compilation errors.
Hela koden:
```
#!/usr/bin/perl
# Läser in textfilen
open INFILE, ";
close INFILE;
# Skriver ut resultatet
open OUTFILE, ">golf.htm" or die "Error: $!";
# Här skrivs inledande HTML in
map {
my @items = split /;/;
chop $items[4];
chop $items[4];
chomp $items[8];
print <<_EOF_;
| $items[2] | $items[4] |
$items[5] | $items[6] | $items[8] |
_EOF_
} @rows
# Här skrivs avslutande HTML in
close OUTFILE;
```
Permalänk: https://www.webforum.nu/p/340499
## #5 — Robban, 2000-03-30T13:33Z
Du saknar ett semikolon efter @rows.
Permalänk: https://www.webforum.nu/p/340500
## #6 — woodi, 2000-03-30T13:47Z
Aha.. Så dumt..
Men det är något lurt iaf.. Filen golf.htm skapas men den är och förblir tom..
HTML koden skrivs ut i konsolen men lagras alltså inte i golf.htm..
Någon som vet vad som är fel!?
Permalänk: https://www.webforum.nu/p/340501
## #7 — Robban, 2000-03-30T17:39Z
Japp, en typo av mig. :r
print \<\<\_EOF\_;
... skall vara ...
print OUTFILE \<\<\_EOF\_;
Permalänk: https://www.webforum.nu/p/340502
## #8 — woodi, 2000-03-30T18:18Z
Är inte riktigt haj på Perl ännu.. :)
Om jag vid ett senare tillfälle vill fylla på filen golf.htm med fler rader hur gör jag då!?
Med andra ord, om jag får en ny data.txt med nya data som ska läggas till och jag vill använda mig av samma script..
Robban
Tack, det funkar! ;)
Permalänk: https://www.webforum.nu/p/340503
## #9 — Robban, 2000-03-31T03:58Z
Det bestäms när du öppnar filen. Om du använder vad jag har skrivit:
open OUTFILE, "\>result.html" or die "Error: $!";
... så kommer innehållet i filen att raderas i samband med öppnandet. Om du i stället skriver:
open OUTFILE, "\>\>result.html" or die "Error: $!";
... så kommer det du skriver till den läggas efter det som redan fanns där. Ingen radering sker alltså.
Permalänk: https://www.webforum.nu/p/340504
## #10 — woodi, 2000-03-31T06:37Z
Vad dum jag är! :r
Permalänk: https://www.webforum.nu/p/340505
---
Tråden på webben: https://www.webforum.nu/amne/perl-ruby/18997-regexp
|