LINUX.ORG.RU

помогите распарсить файл

 , , ,


0

2

есть файл примерно такого содержания: http://pastebin.com/eyYscuLb Хотелось бы его почистить следующим образом:

  • 1) удалить все лишнее оставить только данные начинающиеся на data:image/png;base64,... до завершающего символа ]]
  • 2) разделить значения пустой строкой

Подскажите как и чем это лучше сделать?


#!/usr/bin/perl
my $data_str = join "", <ARGV>;
$data_str =~ s|.*?(data:image/png;base64.*?)]].*?|print "$1\n\n"|sge;
SyntaxError ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.