Check for and remove a trailing backslash character : Pattern matching « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Pattern matching

Check for and remove a trailing backslash character

    

#!/usr/bin/perl
use warnings;
use strict;

my @lines = ();

while (<>) {
    chomp;
    if (s/\\$//) {   
        my $line = <>;
        $_.= $line, redo;   
    }
    push @lines, $_;
}

foreach (0..$#lines) {
    print "$_ : $lines[$_] \n";
}








Related examples in the same category

1.Pattern Matching Operators
2.Pattern Modifiers
3.Pattern Tester
4.Pattern anchors in Perl.
5.Pattern array
6.Pattern match
7.Pattern-Matching Operators(The syntax used to perform a pattern match on a string)
8.Pattern-matching options.
9.Patterns containing + always try to match as many characters as possible.
10.Using variables containing matched subpatterns.
11.Regular Expression Patterns
12.Regular expression character patterns
13.Regular expression metacharacters
14.Regular expression modifiers
15.Regular expression pattern quantifiers
16.Regular expression: start a string with period
17.Reversing subpatterns
18.Repeating patterns
19.Check for 'a'
20.Check for 4-8 a's
21.Check for a or b
22.Check for leading alpha character, rest alphanumeric
23.Check for no 'a'
24.Check for white space
25.A program that illustrates the use of the matching operator.
26./d.f/ matches d, followed by any non-newline character, followed by f
27./de{1,3}f/ matches d, followed by one, two, or three occurrences of e, followed by f.
28.Print line unless it matches E
29.Count the match times