splitting data?

[Jerry Preston]

I am trying to breakdown:

my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/ //g;

# $p = join ",", map /(\w)/ ? $1 .. $2 : $_, split /,/, $data;

# my $p = join ",", split /[\.|X]/, $data;

my( @wafers ) = split /[\.|X]/, $data;

so that I get an array ( @wafers ) containing each element of $data.

Ideas?

Thanks,

Jerry

 

[Jerry Preston]

OK!

This kinda work!

my @wafers = ();
my @slots = ( 0..24 );
my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/\s+//g;
@wafers = split /(\.)|(X)/, $data;


print join("*", @wafers);

This is what the printed results look like:

"*.***.****X**.***.***.****X**.***.***.****X**.***.***.****X**.***.***.****X
**.***.***.****X**.***."

Why so many "*"/spaces?

Jerry

 

[Todd de Gruyl]

I am trying to breakdown:

my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/ //g;

# $p = join ",", map /(\w)/ ? $1 .. $2 : $_, split /,/, $data;

# my $p = join ",", split /[\.|X]/, $data;

my( @wafers ) = split /[\.|X]/, $data;

so that I get an array ( @wafers ) containing each element of $data.

try splitting on //, which will just give you the characters in $data
after you remove the spaces:

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

my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/ //g;
my @wafers = split (//, $data);

 

[gnari]

OK!

This kinda work!

my @wafers = ();
my @slots = ( 0..24 );
my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/\s+//g;
@wafers = split /(\.)|(X)/, $data;


print join("*", @wafers);

This is what the printed results look like:

"*.***.****X**.***.***.****X**.***.***.****X**.***.***.****X**.***.***.****X
**.***.***.****X**.***."

Why so many "*"/spaces?

the purpose of split is to get an array of what is between the separators.
in
this case, a whole bunch of empty strings.
if you use capturing parens with it you also get the captured part in
between.

what you want is to split on empty string
@wafers=split file://,$data;
or probably better:
@wafers=$data=~/(\.|X)/g;

with this method you do not need to strip the spaces first.

gnari

 

[Jerry Preston]

Todd,

Works!

Thanks,

Jerry

I am trying to breakdown:

my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/ //g;

# $p = join ",", map /(\w)/ ? $1 .. $2 : $_, split /,/, $data;

# my $p = join ",", split /[\.|X]/, $data;

my( @wafers ) = split /[\.|X]/, $data;

so that I get an array ( @wafers ) containing each element of $data.

try splitting on //, which will just give you the characters in $data
after you remove the spaces:

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

my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/ //g;
my @wafers = split (//, $data);

 

[Jerry Preston]

Gnarl,

True.

Jerry

"*.***.****X**.***.***.****X**.***.***.****X**.***.***.****X**.***.***.****X

the purpose of split is to get an array of what is between the separators.
in
this case, a whole bunch of empty strings.
if you use capturing parens with it you also get the captured part in
between.

what you want is to split on empty string
@wafers=split file://,$data;
or probably better:
@wafers=$data=~/(\.|X)/g;

with this method you do not need to strip the spaces first.

gnari

 

[John W. Krahn]

I am trying to breakdown:

my $data = "..X...X... X...X...X. ..X.. ";
$data =~ s/ //g;

# $p = join ",", map /(\w)/ ? $1 .. $2 : $_, split /,/, $data;

# my $p = join ",", split /[\.|X]/, $data;

my( @wafers ) = split /[\.|X]/, $data;

so that I get an array ( @wafers ) containing each element of $data.

It looks like you want something like:

my $data = '..X...X... X...X...X. ..X.. ';

my @wafers = $data =~ /[.X]/g;


John