On Tuesday 01 April 2003 20:47, you wrote:
Alright...well first of all I hope this is just pseudocode. �Because a lot of
it won't work at all.
Follow along...
| All,
|
|
|
| What I need is that if I was parsing some data and there is no value
| (spaces) it should print ***** so that the next thing I will print after
| it would not be printed out immediately.
|
|
|
| Ex. of output I want
|
|
|
| VISUALID � � � � �XXXX
|
| 123456 � � � � � � �1023
|
| 123457 � � � � � � �1354
|
| **** � � � � � � � � � 1789
|
| This is what happens if no value is found
|
| VISUALID � � � � �XXXX
|
| 1789
|
|
|
| SCRIPT as follows:
|
| while ($_=<SUMM>) { � ##file is open###
This statement is redundant. �Saying:
while ( <SUMM> )
is sufficient. �Each line in <SUMM> will automatically be assigned to $_ as
long as $/ isn't changed.
|
| {
|
| � � if (/_visualid_(.*)/) {
This regular expression won't work with the data you provided.
|
| � � � � � � � � {
|
| � � � � � � � � if ($length < 2); � � � � � � � � � � � � { � ##what im
| doing is that if the string length is less than 2 print ***)
You're not assigning $length anywhere. �Now, $length is interesting because
is seems like what you really want is not to count bytes but you want to
count how many words there are on a line. �This could be accomplished with a
regular expression such as:
$numwords = (() = $line =~ /(.*?) /g) + 1;
You could also use substr().
<example>
perl -e '
$line = "this is a line of words that has hmmm\n";
chomp($line);
$numwords = (() = $line =~ /(.*?) /g) + 1; # count starts at 0
print "$line == $numwords words\n";
'
this is a line of words that has hmmm == 9 words
</example>
|
| � � � � � � � � print "***\t";
|
| � � � � � � � � }
|
| � � � � � � � �else {
|
| � � � � � � � � print "$1\t";}
|
Again, I am assuming this is pseudocode but for completeness sake $1 isn't
assigned. �I guess $1 would be the return from the regex you used above.
| � � � � � � }}
|
|
|
| � � if (/_xxxx_(.*)/) {
Im not exactly sure why you keep using '_'s in your regexes.
|
| � � � � � � print "\t$1_";
|
| � � }
|
|
|
|
|
| thanks,
|
| Nix
Here is some code that I would have written to do what you are asking for...
[EMAIL PROTECTED] ~]$ cat pb;perl pb
open(F,"h") or die();
for ( <F> )
{
� � chomp();
� � $numwords = (() = $_ =~ /(.*?)\s+/g) + 1;
� � if ( /visualid/i )
� � {
� � � � print "$_\t � �XXXX\n";
� � � � next;
� � }
� � if ( $numwords < 2 )
� � {
� � � � print "****\t\t � �$_\n";
� � }
� � else
� � {
� � � � print $_,"\n";
� � }
}
VISUALID � � � � � �XXXX
123456 � � � � � � �1023
123457 � � � � � � �1354
**** � � � � � � � �1789
--
- Jim
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
