Изменить элемент в массиве. Удаление части элемента в массиве. Perl

Question

Мне нужно получить только название этих песен из текстового файла, который имеет всю свою информацию. Текстовый файл выглядит следующим образом.

TRMMCAU128F9332597<SEP>SOEEWIZ12AB0182B09<SEP>YGGDRASIL<SEP>Beyond the Borders of Sanity 
TRMMCCS12903CBEA4A<SEP>SOARHKB12AB0189EEA<SEP>Illegal Substance<SEP>Microphone Check 

Так название было бы «за пределами Sanity» и «Микрофон Check»

Я не могу понять, как удалить все, что материал перед ним. Вот код, я до сих пор:

# Checks for the argument, fail if none given 
if(songs.txt != 0) { 
print STDERR "You must specify the file name as the argument.\n"; 
exit 4; 
} 

# Opens the file and assign it to handle INFILE 
open(INFILE, 'songs.txt') or die "Cannot open songs.txt: $!.\n"; 

@data = <INFILE>; 

my @lines = map {$_ =~ /^T/ ? ($_ => 1) :()} @data; 

# This loops through each line of the file 
#while($line = <INFILE>) { 

#chomp; 
# print $line; 
# print @data; 

#} 

# Close the file handle 
close INFILE; 
print @lines; 

Он выводит это:

1TRMMCAU128F9332597<SEP>SOEEWIZ12AB0182B09<SEP>YGGDRASIL<SEP>Beyond the Borders of Sanity1 

Я понимаю, Dont 1 в ничего я просто играл с ним. Любая помощь приветствуется. Благодарю.

Answer 1

Используйте split функцию

@songs = map { chomp; (split /<SEP>/)[3] } @data; 

Допуская <SEP> буквально в файле, и вы хотите, четвертые разделители поля, как это видно из данных образцов.

Answer 2

Ваши данные выглядят как данные из Million Song Dataset, который использует литерал <SEP> в качестве разделителя полей. Чтобы получить последнее поле - название песни - вы можете сделать следующее:

use strict; 
use warnings; 

@ARGV or die "You must specify the file name as the argument.\n"; 

while (<>) { 
    print $1 if /([^>]+)$/; 
} 

Использование: perl script.pl songs.txt [>outFile.txt]

Последний, необязательный параметр направляет вывод в файл.

Вывод на наборе данных:

Beyond the Borders of Sanity 
Microphone Check 

Регулярное выражение соответствует всем символам от конца строки, которые не >, и захватывает их. Если совпадение будет успешным, будет напечатан захват (сохраненный в $1).

Надеюсь, это поможет!