这句话什么意思？

cups_book

#!/usr/bin/perl

use strict;
use warnings;

use Net::SFTP::Foreign;
use Fcntl qw(SEEK_END);

@ARGV == 1
    or usage();

my ($host, $file) = $ARGV[0] =~ /([^:]+):(.+)/ or usage();

意思是说？。。。
把 $ARGV数组的第一个元素赋给前面这个列表？

jie771052157

$argv[0]==1  && $#argv==1

zhlong8

1. my($host, $file);
   
2. if ($ARGV[0] =~ /([^:]+):(.+)/) {
   
3.     ($host, $file) = ($1, $2);
   
4. } else {
   
5.     usage();
   
6. }

复制代码