Keeping the separators by having them in parentheses. : Split « String « Perl






  1. Perl
  2. String
  3. Split

Keeping the separators by having them in parentheses.

      

#!usr/bin/perl

use warnings;
use strict;

my $string = "\nThis-is:a\@test-for,*you.";

$string = join( ',', split( /([-:@*])/, $string ));
print "$string\n\n";








Related examples in the same category

1.Split string into separate words, and then test to see if each word is the one we're looking for.
2.Split up
3.Split words
4.A simple word-count program.
5.Using split function to split a string
6.Split string with ','
7.Find a word after splitting a string