Preguntas sobre Perl

#!/usr/bin/perl

#abcd.pl

mi ($i, $num, $archivo)=(1, 0, '');

abre A, "un archivo";

while(lt;Agt;){ push @index, $ if /\.$/ }

abre B, "bfile";

mi @B=lt;Bgt;;

$B[($_ - 1)] =~ s/$/. / para @index;

$archivo .= $_ para @B;

mi @D=split/\./, $archivo;

para (@D){

/^(\d\d：.*?) --gt;(?：.*)* (\d\d.*?\d)$/sm;

my ($t1, $t2)=($1, $2);

s/^\d (:.*)?$//gm;

s/\n /\n/mg;

s/^(\D.*\D)$/$1,/mg;

s/, $/. /;

print $num, "\n", "$t1 --gt; $t2", $_, "\n"; p>=======================

perl abcd.pl

1

00:00:16,000 --gt; 00:00:22,000

Cuando tenía diez años, uno de mis primos me llevó a visitar su Facultad de Medicina.

2

00:00:22,000 --gt; 00:00:32,000

Como trato especial,

tomó Fui al laboratorio de patología,

saqué un cerebro humano real,

de un frasco,

lo puse en mi mano.

Las expresiones regulares son una característica importante del lenguaje Perl y un poco complicadas en los programas Perl. Sin embargo, si puedes dominarlas bien, puedes usar fácilmente expresiones regulares para completar tareas de procesamiento de cadenas. Por supuesto, será más conveniente en diseño.

Novato en Perl, por favor dame un consejo