[Cascavel-pm] Atualização de arquivo.

[Rafael Lebrão Martins]

Em (09:31:33), Cascavel Perl Mongers escreveu: 


>experimente escrever junto o conteúdo da linha em questão via $_. :) 

Eu recebo a linha da entrada padrão e imprimo no arquivo.. 

my $comando = <STDIN>: 
chomp $comando; 
>> open (my $in, '+<', "$arquivo"); 
>> while (<$in>) { 
>> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) { 
>> print $in "algum texto $comando; 
>> }} 
>> close ($in);