首页 \ 问答 \ 这个Perl脚本实现了什么？(What does this Perl script achieve?)

这个Perl脚本实现了什么？(What does this Perl script achieve?)

 我正在阅读由别人编写的Perl脚本，我对Perl不太熟悉，所以有人会告诉我前三行是干什么的？  
my $ref = do($filename);
$ref != 0 or die "unable to read/parse $filename\n";
@varLines=@{$ref};
foreach $ord (@varLines)
{
    # code here
}
 
 这是在获取命令行参数设置$filename后程序的开始  
 被传递给这个脚本的文件的格式是  
[
  {
    "Key1" => "val1",
    "key2" => " "A",
  },
  {
    "Key3" => "val2",
    "key4" => " "B",
  },
]

I was going over a Perl script written by someone else and I am not too familiar with Perl so could someone let me know what do the first three lines do? 
my $ref = do($filename);
$ref != 0 or die "unable to read/parse $filename\n";
@varLines=@{$ref};
foreach $ord (@varLines)
{
    # code here
}
 
This is in the beginning of the program after the $filename is set with getting the commandline arguments 
The format of the file being passed to this script is 
[
  {
    "Key1" => "val1",
    "key2" => " "A",
  },
  {
    "Key3" => "val2",
    "key4" => " "B",
  },
]

原文：https://stackoverflow.com/questions/1744340

更新时间：2022-03-12 10:03

最满意答案

 您可以使用windows提供的命令： cacls和icacls  
 只读 cacls  
$ cacls "$file_path" //E //P Everyone:N 1>/dev/null
$ cacls "$file_path" //E //G Everyone:R 1>/dev/null
 
 只写与cacls  
$ cacls "$file_path" //E //P Everyone:N 1>/dev/null
$ cacls "$file_path" //E //G Everyone:W 1>/dev/null
 
 第一行删除所有权限。 第二行添加“读”或“写”  
 如果您不使用Windows XP，则可以使用icacls ：  
 
  只读 ： icacls "$file_path" //grant :r Everyone:R 1>/dev/null  
  只写 ： icacls "$file_path" //grant :r Everyone:W 1>/dev/null  
 
 有关这些命令的更多信息：  
 
  cacls ： http ： //ss64.com/nt/cacls.html或technet.microsoft.com  
  icacls ： http ： icacls或technet.microsoft.com  

You can use the commands provided by windows: cacls and icacls 
Read-Only with cacls 
$ cacls "$file_path" //E //P Everyone:N 1>/dev/null
$ cacls "$file_path" //E //G Everyone:R 1>/dev/null
 
Write-Only with cacls 
$ cacls "$file_path" //E //P Everyone:N 1>/dev/null
$ cacls "$file_path" //E //G Everyone:W 1>/dev/null
 
The first line removes all rights. The second lines add either "Read" or "Write" 
If you are not using Windows XP, you can use icacls instead: 
 
 Read-only: icacls "$file_path" //grant :r Everyone:R 1>/dev/null 
 Write-only: icacls "$file_path" //grant :r Everyone:W 1>/dev/null 
 
More information on these commands: 
 
 cacls: http://ss64.com/nt/cacls.html or technet.microsoft.com 
 icacls: http://ss64.com/nt/icacls.html or technet.microsoft.com

这个Perl脚本实现了什么？(What does this Perl script achieve?)

最满意答案

相关问答

MSYS是什么,他与CYGWIN有什么区别?[2022-06-14]

MSYS2和Cygwin的区别[已关闭](Differences between MSYS2 and Cygwin [closed])[2022-03-10]

MSYS错误“rem：command not found”(MSYS error “rem: command not found”)[2024-05-18]

Windows下的Git：MSYS或Cygwin？(Git under windows: MSYS or Cygwin?)[2021-12-01]

Mosquitto与Cygwin(Mosquitto with Cygwin)[2022-08-08]

如何在Msys或Cygwin中将文件设置为只写或只读？(How to set a file to write-only or read-only in Msys or Cygwin?)[2023-11-12]

为什么c＃不支持只读或只写自动属性？(Why doesn't c# support read-only or write-only automatic properties?)[2022-08-17]

创建一个Cygwin emacs宏(Creating a Cygwin emacs macro)[2023-11-15]

区分MSYS和MSYS2以及CYGWIN(distinguish between MSYS and MSYS2 and CYGWIN)[2024-03-07]

C ++：类的只读和只写版本的语义(C++: Semantics for read-only and write-only versions of a class)[2022-03-30]

相关文章

最新问答