Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Do not understand code

by haukex (Abbot)
on Sep 28, 2017 at 10:03 UTC ( #1200255=note: print w/replies, xml ) Need Help??


in reply to Do not understand code

unlink $file if /.BGV/; ... what does this 'if' means? What condition is it?

The if after a statement is a statement modifier, it is the equivalent of if (/.BGV/) { unlink $file }. The condition is equivalent to $_ =~ /.BGV/, that is, match the special variable $_ against the regex /.BGV/. The special variable $_ gets set in several places, one very common one is the while (<$filehandle>) { ... } loop, see I/O Operators. That line of code in English: If the string stored in $_ contains the four-character sequence of any character (except newline) followed by the string 'BGV', then unlink (delete) the file whose name is given in the string $file.

Replies are listed 'Best First'.
Re^2: Do not understand code
by BlackKnait (Novice) on Sep 28, 2017 at 10:20 UTC
    Thanks for this detailed answer. I knew its possible to ask for a condition like $_ ~= <regex> - but this notation is new for me. With this information I understand this snippet.

      Note that you reversed the operator. Itís not ~=, itís =~.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1200255]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2018-06-21 18:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (118 votes). Check out past polls.

    Notices?