Perl invokes the external Command (g) method of awk _perl

However, the common gadget of the Linux system is inherently friendly to the columns, sometimes invoking awk directly in Perl is more convenient and efficient than writing the corresponding Perl script. For example, insert the AWK statement with system:

Copy Code code as follows:

System (Gawk ' {print $} ' $filename);

Execute the L statement, you will find that the line error, prompting you to use the Read-only variable $.
So how do you deal with the conflicts in two ecosystems?
There is a simple solution:

Copy Code code as follows:

My $i = "$";
System (gawk ' {print $i} ' $filename);

This solves the problem of (g) the conflict of the built-in variables of awk and Perl.