sezionare testo

[Claudio Vituzzi]

piccolo problema con del testo.

Ho un file di testo da qui voglio estrapolare i primi 1000 caratteri (senza tagliare l'ultima parola)...poi in fase di print devo aggiungere qualcosa tipo [ continua >> ] o [...]

qualche idea? (il problema sarebbe non tagliare una parola se supera i 1000 caratteri...

ciao!

[Mich_]

Come dire:
data una stringa $str
prendi la sottostringa dei primi 1000 caratteri,
trova l'ultimo spazio e salvalo in $pos
prendi la sottostringa di $str fino alla posizione $pos-1
togli dalla stringa $str la sottostringa fino alla posizione $pos.
Riprendi ricorsivamente.

Non so se questo ti puo` bastare come spunto.

Forse si puo` fare tutto con una RE, ma in questo momento avrei difficolta` ad elaborarne una specifica.


In alternativa:
spezza la stringa in tante sottostringhe mediante split secondo lo spazio
ricomponi la stringa fino a che i caratteri non superano i 1000

[shishii]

$len=5; # lunghezza massima che vuoi
$string="ciao bello"; # testo che vuoi analizzare

if(length($string) > $len) { # operiamo solo se si supera il
# limite fissato

# con questa RE selezioniamo il testo costituito da
# qualunque tipo di carattere fino alla quantità
# voluta. Poi selezionaniamo i seguenti caratteri
# fino a che non si incontra un carattere che indica
# la fine di una parola. Io ho inserito quelli che
# mi sono venuti in mente.
$string =~ /^(.{$len}[^ ,.;\t:]*)/;

# si preleva il testo selezionato.
$text=$1;
print "$text\n";
}else{
print "inferiore a $len: $string\n";
}