Problem with a regexp

[bytemania]

i dont know what is wrong... Im a noob help me please

#!/usr/bin/perl

use strict;
use warnings;
 
sub bisplit {
	if(length($_)==2){
		my @lista = split($_[0],$_[1]);

		print (join(":",@lista)),"\n";
	}
}

bisplit(/\,/,"12,13,14,15,16");

 

[KevinADC]

The "warnings" pragma should be giving you some hints to problems in your code. Also, where is $_ defined in your code?

if(length([red]$_[/red])==2){

Maybe you mean to do something like this:

#!/usr/bin/perl

use strict;
use warnings;
 
sub bisplit {
    if ( @_== 2 ){
        my @lista = split(/$_[0]/,$_[1]);
        print join(":",@lista),"\n";
    }
}

bisplit(',',"12,13,14,15,16");

------------------------------------------
- Kevin, perl coder unexceptional!

 

[bytemania]

thanks =)