Perl Method for calling external command (g) awk

However, awk, a commonly used tool in linux, is naturally friendly to Column Operations. Sometimes it is more convenient and effective to call awk directly in perl than to write the corresponding perl script. For example, use system to insert an awk statement:

Copy codeThe Code is as follows: system (gawk '{print $1}' $ filename );

When you run this l statement, you will find that an error is returned, prompting you to use the read-only variable $1.
So how can we deal with conflicts between the two ecosystems?
There is a simple solution:

Copy codeThe Code is as follows: my $ I = "$1 ";
System (gawk '{print $ I}' $ filename );

This solves the conflict between $1 of (g) awk and $1 of perl's built-in variables.