Perl use split and remove specific character

mingming88 · #1 (**permalink**) 05-24-2009

i want to split the input by a space and remove specific characters like full stop, comma...... etc. and then save each word in an array.
i got something below, but it didn't work. can anyone please help me?
Thank you

Code:

#!/usr/bin/perl -w

while (<>) 
{
	$line = <>;
	@word = split(' ', $line);
	$line =~ s/[^\w]/ /g;
	@lowerword = map {lc($_)}@word;
	print(@lowerword);
}

Input: Hello. How are you?
Output: hello how are you

durden_tyler · #2 (**permalink**) 05-24-2009

Quote:

Originally Posted by mingming88

i want to split the input by a space and remove specific characters like full stop, comma...... etc. and then save each word in an array.
...
Input: Hello. How are you?
Output: hello how are you

You haven't mentioned if you want to change the case as well; I'm assuming you do (as per the output).

Code:

$
$ cat splitrem.pl
#!/usr/bin/perl -w
while (<>) {
  $line = $_;
  print "Input  : ",$line;
  $line =~ s/[[:punct:]]//g;
  $line = lc($line);
  @word = split(' ', $line);
  print "Output : ",join(" ",@word);
  print "\n";
}

$
$ echo "Hello, how are you?" | perl splitrem.pl
Input  : Hello, how are you?
Output : hello how are you
$

HTH,
tyler_durden

radoulov · #3 (**permalink**) 05-24-2009

As a oneliner:

Code:

% perl -E'say lc join "-",shift=~/(\w+)/g' 'Hello. How are you?'
hello-how-are-you

For older versions:

Code:

perl -le'print lc join "-",shift=~/(\w+)/g'

mingming88 · #4 (**permalink**) 05-24-2009

Quote:

Originally Posted by durden_tyler

You haven't mentioned if you want to change the case as well; I'm assuming you do (as per the output).

Code:

$
$ cat splitrem.pl
#!/usr/bin/perl -w
while (<>) {
  $line = $_;
  print "Input  : ",$line;
  $line =~ s/[[:punct:]]//g;
  $line = lc($line);
  @word = split(' ', $line);
  print "Output : ",join(" ",@word);
  print "\n";
}

$
$ echo "Hello, how are you?" | perl splitrem.pl
Input  : Hello, how are you?
Output : hello how are you
$

HTH,
tyler_durden

Thank you, it is working.

mingming88 · #5 (**permalink**) 05-24-2009

Quote:

Originally Posted by durden_tyler

You haven't mentioned if you want to change the case as well; I'm assuming you do (as per the output).

Code:

$
$ cat splitrem.pl
#!/usr/bin/perl -w
while (<>) {
  $line = $_;
  print "Input  : ",$line;
  $line =~ s/[[:punct:]]//g;
  $line = lc($line);
  @word = split(' ', $line);
  print "Output : ",join(" ",@word);
  print "\n";
}

$
$ echo "Hello, how are you?" | perl splitrem.pl
Input  : Hello, how are you?
Output : hello how are you
$

HTH,
tyler_durden

i have try yours, it is working, but mine is not working....

Code:

#!/usr/bin/perl -w

while (<>) 
{
	$line = $_;
  	$line =~ s/[[:punct:]]//g;
  	$line = lc($line);
 	@word = split(' ', $line);
	print (@word);
}

Input : Hello, how are you?
Output : hellohowareyou

i don't know why my output is sticking together? i want it to separate.... can anyone help?
Thank you

radoulov · #6 (**permalink**) 05-24-2009

You missed the join function.

KevinADC · #7 (**permalink**) 05-24-2009

Quote:

Originally Posted by mingming88

i don't know why my output is sticking together? i want it to separate.... can anyone help?
Thank you

because you are printing the array, (the parenthisis are extra garbage not needed in your code):

Code:

print (@word);

you can use join() to print it as a string with any delimeter between the array elements, but if all you want is a single space you can simply double-quote the array which pefroms a bit of magic and converts the array into a string and adds a space between the elements:

Code:

print "@word";

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Remove parenthesis character (Perl)	aristegui	Shell Programming and Scripting	4	10-28-2008 02:53 PM
How to remove the specific lines from file using perl	dipakg	Shell Programming and Scripting	4	06-11-2008 03:45 AM
Perl RegExp to remove last character from strings	ospreyeagle	Shell Programming and Scripting	2	04-03-2008 03:55 PM
remove specific lines from flat file using perl	meghana	Shell Programming and Scripting	12	02-12-2008 09:50 PM
perl split funciton - special character "/"	deepakwins	UNIX for Dummies Questions & Answers	5	02-08-2008 12:19 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by