Perl subroutine

[Dan B-Yallay]

Кто знает, как в затолкать в список параметров субрутины/процедуры имя файла для выходных данных?

#!/usr/bin/perl
#use strict;
#use warnings;

open(OUT, ">$ARGV[0]");

sub printfirsttwo
{
   print $_[0] "Your first argument was $_[1]\t";
   print $_[0] "and $_[2] was your second\n";
}

То есть мне нужно, чтобы при при вызове процедуры

&printfirsttwo("OUT","Alpha","Beta","three");

в файле "outputA.txt" было написано "Your first argument was Alpha and Beta was your second"

Гугл даёт кучу ссылок на примеры, но нужного не нашел.

[venco]

#! /usr/bin/perl
use strict;
use warnings;

open(OUT, ">$ARGV[0]");

sub printfirsttwo
{
  my $out = $_[0];
  print $out "Your first argument was $_[1]\t";
  print $out "and $_[2] was your second\n";
}

printfirsttwo(*OUT,"Alpha","Beta","three");

[Dan B-Yallay]

venco,

Спасибо! Сейчас нет возможности проверить, позже доложу.

Upd.

Кажется, работает! Спасибо еще раз.

[Dan B-Yallay]

У мене новый вопрос по перлу. Есть строки вида

10А20Б25А85В45Г14А или, скажем, 50Е38А41Д

В общем, неопределенной длины наборы из цифр(целых чисел вообще говоря), разделенных различными буквами.
Как можно вытащить из строки ВСЕ числа стоящие перед буквой "А"? Желательно в виде вектора. Например, для первой строчки надо получить

[10,25,14]

а для второй [38].

А еще лучше, получить такие векторы для каждой буквы в строке.

[venco]

Начните с этого:

  my $str = "10A20B25A85C45D14A";
  my $sym = "A";
  my @numbers = $str =~ m/([0-9]+)$sym/g;

[Dan B-Yallay]

Работает!!
Спасибо большое venco, я Ваш должник!