shellwords.al

来自「perl 解释器,运行效率高,操作简单方便」· AL 代码 · 共 11 行

# NOTE: Derived from lib/text/parsewor.pm.  Changes made here will be lost.
package Text::ParseWords;

sub shellwords {
    local(@lines) = @_;
    $lines[$#lines] =~ s/\s+$//;
    &quotewords('\s+', 0, @lines);
}

1;