Perl: Split Line by Regex

By Xah Lee. Date: . Last updated: .

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:
你是我最苦澀的等待
讓我歡喜又害怕未來

If you have a question, put $5 at patreon and message me.

Perl

  1. Perl Overview
  2. Version String
  3. Help System

Detail

  1. Quoting String
  2. Format String
  3. String Operations
  4. True, False
  5. if then else
  6. Loop
  7. List / Array
  8. Loop Thru List
  9. Map f to List
  10. List Comprehension
  11. Hash Table
  12. Function Optional Param
  13. regex

Text Processing

  1. Unicode 🐪
  2. Convert File Encoding
  3. Read Write File
  4. Traverse Dir
  5. Find Replace
  6. Validate Local Links
  7. Split Line by Regex

Advanced

  1. Sort List, Matrix, Object
  2. Sort Matrix
  3. Sort Unstable
  4. Sort Misc
  5. List Modules, Search Paths
  6. Write a Module
  7. Complex Numbers
  8. System Call
  9. gzip
  10. Get Env Var
  11. GET Web Content
  12. Email