Jesús,
quin és el problema que corregeix aquest fitxer de seqüència? Ho dic
per saber identificar-ho.
2005/7/12, Jesús Corrius <[EMAIL PROTECTED]>:
> Hola,
>
> He fet una petit seqüència de perl que fa de filtre (tranquils, aquest
> codi no va a l'OOo) que arregla automàticament els fitxers po que tenen
> un form incorrecte en aquesta versió de les cadenes.
>
> El publico aquí per si pot fer servei a algú. No crec que faci falta
> posar-hi llicència, perquè el codi és d'estar per casa.
>
> #!/usr/bin/perl
> $previous_line = "";
> while ($current_line = <STDIN>)
> {
> $a = substr($current_line, 0, 1);
> if ($a ne "\"") {
> $b = substr($previous_line, 0, 1);
> if ($b eq "\"") {
> print "msgstr " . $previous_line;
> } else {
> print $previous_line;
> }
> }
> $previous_line = $current_line;
> }
>
> Salutacions,
>
> --
> Jesús Corrius
> <[EMAIL PROTECTED]>
> ----------------------------------------------------------------
> Podeu consultar els arxius d'aquesta llista o canviar la vostra
> subscripció a http://www.softcatala.org/llistes/
> ----------------------------------------------------------------
>
----------------------------------------------------------------
Podeu consultar els arxius d'aquesta llista o canviar la vostra
subscripció a http://www.softcatala.org/llistes/
----------------------------------------------------------------
