Perl: Split Line by Regex
this page shows you how to split a line by regex.
let's say you have a file like this:
你是我最苦澀的等待 | you are my hardest wait 讓我歡喜又害怕未來 | giving me joy and also fear the future
and you want to get just the Chinese lines.
# -*- coding: utf-8 -*- # perl # example of split lines by regex use strict; my $myText = '你是我最苦澀的等待 | you are my hardest wait 讓我歡喜又害怕未來 | giving me joy and also fear the future'; my @myLines= split (/\n/, $myText); for my $aLine (@myLines) { my @lineParts = split(/\s*\|\s*/, $aLine); print "$lineParts[0]\n"; } __END__ prints: 你是我最苦澀的等待 讓我歡喜又害怕未來