How do I stop printing a hash value

[iphone]

I have a hash like below,values are in an array,some values of array are comments,now I want to add a check not to print the comments.I treid the below but not successful $VAR1 = { 'file.txt' => [ 'pages/value/data.h ', '@label ', '/* CAT/APP/file.c */ ', };

for my $key (keys %Hash)
{
        my $value = $Hash{$key};
        if(@$value !=~ /^\/\*/) #if the value is a comment donot print
+ it.
        {
            if (scalar @$value) 
            { # check that the arrayref isn't empty
            print "\n ", join(", ", @$value), "\n\n";
            }
        }

}

[ikegami]

No, your problem has nothing to do with hashes. You want to stop printing some elements of an array.

You can use grep to filter out the elements you are passing to join.

[iphone]

ya..right,to be be exact my query is how do I grep for a comment?

[ww]

Q2. A2.   RTFM: perldoc -f grep

Q1. A1.   perldoc perlretut

or, work out what's happening here:

...
for my $var(@var) {             # as ikegami said, you're not working 
+with a hash
    if ( $var !~ /\/* .*? \/*/ ) {
        print "\$var, \'$var\', is (something for iphone to fill in) \
+n";
    } else {
        print "\$var, \'$var\', is (the reverse) \n";
    }
}
...

[iphone]

I mean I tried the below but doesnt seem to work for me

        if ((scalar @$value) && not grep (/\/\*(.*)\*\//,@$value))
{
}

[PeterPeiGuo]

First of all, you need to change !=~ to !~, your code as it is won't even compile. Secondly, you don't want to apply matching against the array, it is not going to do what you wanted.

[iphone]

I am using the below

  if ((scalar @$value) && not grep (/\/\*(.*)\*\//,@$value))
{
}

[PeterPeiGuo]

Read the document for "grep" more carefully. The following might be a starting point for you, and you can continue from here:

print join(",", grep(!/\/\*(.*)\*\//, @$value));