Newsgroup: it.comp.os.linux.software
Titolo: [ot] un fix veloce ver jargon.pl

il seguente script dovrebbe trasformare la versione testuale dei
jargon files in fortune cookies, ma non va. siccome al momento i miei
contatti con perl sono stati limitatissimi, e che non ho fisicamente
il tempo di guardare la documentazione... non e' che mi potreste dare
un suggerimento? :) (lo script ovviamente non e' mio, e avrei fatto
bene a scrivere su ic.perl, ma chiedendo una cosa del genere avrei
sollevato solo un nugolo di proteste ;)
use strict 'vars';
my $output = "jargon";
my $strfile = "/usr/sbin/strfile";
-x $strfile or die "Your strfile utility is not there!: $!\n";
open OUTPUT, ">$output" or die "Could not open $output for writing:
$!\n";
my @text = split /\n   :/, # ******
            (split /\n   :\(Lexicon Entries End Here\):\n/,
            (split /\nThe Jargon Lexicon\n/,
            join '', <>)[1])[0];
shift @text;
for (@text)
{
  s/    / /;
  print OUTPUT "   :", $_,
                  "From \"The New Hackers Dictionary\", version
4.2\n%\n";
}
close OUTPUT or die "Could not close $output: $!\n";
print `$strfile $output`;
il messaggio di errore e':
Use of uninitialized value at ./
jargon.pl
 line 35, <> chunk 2167.
Use of uninitialized value at ./
jargon.pl
 line 35, <> chunk 2167.
dove la linea 35 e' marcata sopra con un ******
ciao e grazie in anticipo, gabriele.
-- 
http://www.freeweb.org/personali/gz/l/
 + (X/faq oppure u/cpd.txt)
The nice thing about standards is that there are so
many of them to choose from. -- Andrew S. Tanenbaum

 ./
jargon.pl
"jargon.dat" created
There were 2226 strings
Longest string: 8972 bytes
Shortest string: 72 bytes
[root@fokhouse /tmp]#
A me funziona (col 4.1.1) 8-?
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

 A me funziona (col 4.1.1) 8-?
la versione usata nell'esempio dello script e' la 420... non so che
dire. forse ha solo editato i numeri.
[gzuglian@gzuglian ~]$ perl -version |grep version
This is perl, version 5.005_03 built for i386-linux
boh. usero' la 411.
ciao e grazie, gabriele.
-- 
http://www.freeweb.org/personali/gz/l/
 + (X/faq oppure u/cpd.txt)
FORTRAN rots the brain. -- John McQuillin

 A me funziona (col 4.1.1) 8-?
trovato il problema, mi ostinavo a credere che il 4.2 (senza
suffisso) che avevo non fosse compresso, aiutato in questa
impressione da most (come less ma in s-lang) che evidentemente
se lo decomprimeva zitto zitto... quando ho usato jed ho avuto
la rivelazione.
a qualcuno avanza la proverbiale busta di carta marrone?
ciao, gabriele.
-- 
http://www.freeweb.org/personali/gz/l/
 + (X/faq oppure u/cpd.txt)
On the Internet, nobody knows you're a dog. -- Cartoon caption

 A me funziona (col 4.1.1) 8-?
...e mi sembra che l'autore abbia dimenticato qualcosa ;)
[root@fokhouse /tmp]# grep -A1 '^= \w' jargon | head -5
= B =
=====
---
= C =
=====
[root@fokhouse /tmp]#


 [root@fokhouse /tmp]#
...
grep -A1 '^= \w' /opt/gzu/games/fortunes/jargon | head -5
= A =
=====
--
= B =
=====
ciao, gabriele.
-- 
http://www.freeweb.org/personali/gz/l/
 + (X/faq oppure u/cpd.txt)
DEC diagnostics would run on a dead whale. -- Mel Ferentz

 =====
Appunto. Quelli sono separatori alfabetici: _non_ devono stare nei
fortune 8).


 fortune 8).
si' ma la cosa curiosa e' che siano anche diversi da me a te. forse,
adesso che ci penso, usi ancora il file ver. 411... vabbe' via, una
piccola svistina dell'autore ;)
ciao, gabriele (che, tanto per citare qualcosa di interessante in
questo suo post non propriamente brillantissimo, racconta
pubblicamente di stare ascoltando una vecchia gloria dei king krimson,
at the court of krimson king... a chi, come me pochi giorni fa, non li
conosce per niente, posso solo suggerire di sentire questo piccolo
pezzo di storia... mitico! ;).
-- 
http://www.freeweb.org/personali/gz/l/
 + (X/faq oppure u/cpd.txt)
You can now buy more gates with less specifications than at any other
time in history. -- Kenneth Parker

at the court of krimson king... a chi, come me pochi giorni fa, non li
e vaiiii, un altro che comincia a capire la differenza tra musica e
rumore.
come? ot? ma quale ot, ho puntualizzato solo una stringa di avvio del
comando at....
a me, comunque, dice :
root@slave:/home/poggi# at the court of krimson king
parse error. Last token seen: the
Garbled time
domani provo con i deep purple.
Ciao.roberto
-- 
Save our planet!
Save wildlife;
For your E-MAIL use only recycled Bytes !!
roberto poggi  
rpo...@softhome.net

 domani provo con i deep purple.
:DDD