Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea-www.harvard.edu/~dburke/perl-slang/examples/arrays Дата изменения: Mon Jan 10 02:51:14 2005 Дата индексирования: Tue Oct 2 07:40:56 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

use Inline 'SLang';

# you can send arrays to S-Lang
print_in_slang( [ 1, 2, 4 ] );

# and get them back from S-Lang
$aref = get_from_slang();
print "The array contains: " . join(',', @$aref) . "\n";

__END__
__SLang__

define print_in_slang (arr) {
variable adims, ndim, atype;
( adims, ndim, atype ) = array_info(arr);
vmessage( "Array has type=%S with %d dims", atype, ndim );
foreach ( arr ) {
variable val = ();
vmessage( " Value = %s", string(val) );
}
}
define get_from_slang() { return ["a string","another one","3"]; }