Command line arguments in Perl

Question

I am working on an open source project for GSoC and I have this piece of Perl code with me. I need to create another Perl file for a similar task. However, I am having trouble understanding 3 lines of this file. More specifically, I am not able to understand why the files have $ symbol. I assume it is because they are command line arguments. However, I am not sure. I would like to have the meaning of these 3 lines explained to me.

open(NC, "|nc localhost 17001") || die "nc failed: $!\n";
print NC "scm hush\n(observe-text \"$_\")\n";
print "submit-one: $_\n";

Community · Accepted Answer · 2020-06-20 09:12:55Z

1

$! and $_ are global variables. For more information you can read here

$_ The default input and pattern-searching space

$! If used in a numeric context, yields the current value of the errno variable, identifying the last system call error. If used in a string context, yields the corresponding system error string.

open(NC, "|nc localhost 17001") || die "nc failed: $!\n";

will run the command nc with the parameter and if it fails it will give you the error message.

edited Jun 20, 2020 at 9:12

CommunityBot

11 silver badge

answered Jun 23, 2015 at 5:32

Jens

69.6k15 gold badges107 silver badges133 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Jens Over a year ago

The meaning of this is equals with if($_ =~ /<P>/) ... it will work with the next line if the actual contains <P>

Rohit Shinde Over a year ago

The whole snippet is this: if(/<P>/) {next;} chop;

Rohit Shinde Over a year ago

So basically this code splits sentences from a given mass of text?

Collectives™ on Stack Overflow

Command line arguments in Perl

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related