I am looking for a better way, a perl way for the following: foreach ( @data ) ) { s/^ //; $data_[ $jp++ ] = $_; }
I have seen a one liner using while, but I do not remember. Thanks, Jerry
I am looking for a better way, a perl way for the following: foreach ( @data ) ) { s/^ //; $data_[ $jp++ ] = $_; }
I have seen a one liner using while, but I do not remember. Thanks, Jerry