Как перемещаться на основе регулярного выражения с использованием perl?

Question

Как перенести верхний элемент из массива на основе регулярного выражения с помощью perl? Также это datarecords, то есть у меня есть разделитель входных данных ($ /), установленный на

$/= '#';

например, следующий текстовый файл содержит эту запись данных.

#dddddddddd 
    ccccccccccc 
    eeeeeeeeeee 
    fffffffffff 

Я хотел бы, чтобы удалить знак # и сохранить текст, например: Это не кажется

dddddddddd 
    ccccccccccc 
    eeeeeeeeeee 
    fffffffffff 

Answer 1

Если вы просто хотите, чтобы манипулировать текстовый файл, один вкладыш кажется лучшим решением. Это отредактирует файл и сохранит резервную копию в «inputfile.txt.bak».

perl -pi.bak -we 's/^#//' inputfile.txt 

Или вы можете сделать перенаправление оболочки:

perl -wpe 's/^#//' inputfile.txt > outputfile.txt 

Они будут пытаться изменить все строки в файле. Если вы просто хотите изменить первую строку, вам нужно что-то другое:

perl -wpe 's/^#// if ($. == 0);' inputfile.txt > outputfile.txt 

Answer 2

быть связаны с массивами. Кажется, вы просто имеете дело со строками.

Это удаляет ведущий знак хэш строки $line:

$line =~ s/^\#//; 

Answer 3

Не путайте shift с заменой регулярных выражений.

shift удалит первый элемент из массива , а не строку.

Замена регулярных выражений может касаться снятия ведущего '#' сигила.

Первым элементом массива будет $array[0].

Если регулярное выражение подстановки применяется к этому первому элементу, то '#' удаляется:

---

my @array = ('#dddddddddd', 'ccccccccccc', 'eeeeeeeeeee', 'fffffffffff'); 

$array[0] =~ s/^#//; 

print $array[0]; # 'dddddddddd'