А Ñ ÐºÐ°ÐºÐ¸Ñ… Ð¿Ð¾Ñ€ open Ð½Ð°ÑƒÑ‡Ð¸Ð»ÑÑ Ñ‡Ð¸Ñ‚ать ÑÑÑ‹Ð»ÐºÑƒ Ð½Ð° ÑÐºÐ°Ð»ÑÑ€ ÐºÐ°Ðº Ñ„айл? Ð¢Ð°Ð¼, Ð²Ñ€Ð¾Ð´Ðµ Ð±Ñ‹, ÑÑÑ‹Ð»ÐºÐ° Ð½Ð° glob Ð½ÑƒÐ¶Ð½Ð°, Ð½Ðµ?<br><br><br><div class="gmail_quote">7 Ð´ÐµÐºÐ°Ð±Ñ€Ñ 2011 г. 20:33 Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚ель Denis Evdokimov <span dir="ltr"><<a href="mailto:evdokimov.denis@gmail.com">evdokimov.denis@gmail.com</a>></span> Ð½Ð°Ð¿Ð¸ÑÐ°Ð»:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Приветствую.<br>Кто Ð¼Ð½Ðµ ÑÐ¼Ð¾Ð¶ÐµÑ‚ Ð¾Ð±ÑŠÑÑÐ½Ð¸Ñ‚ÑŒ, Ð¿Ð¾Ñ‡ÐµÐ¼Ñƒ Ð²Ñ‚орой Ð²Ð°Ñ€Ð¸Ð°Ð½Ñ‚ Ñ‚ак Ñ€Ð°Ð·Ð¸Ñ‚ельно Ð¾Ñ‚личается Ð¾Ñ‚ Ð¿ÐµÑ€Ð²Ð¾Ð³Ð¾ Ð²Ð°Ñ€Ð¸Ð°Ð½Ñ‚а?<br>Много Ñ‡ÐµÐ³Ð¾ Ð¿ÐµÑ€ÐµÑ‡Ð¸Ñ‚ал, Ð¿Ñ€ÐµÐ¶Ð´Ðµ Ñ‡ÐµÐ¼ Ð¾Ñ‚править Ð²Ð¾Ð¿Ñ€Ð¾Ñ, Ð½Ð¾ Ð²Ð½ÑÑ‚но Ð¾Ð±ÑŠÑÑÐ½Ð¸Ñ‚ÑŒ Ñ‚ак Ð¸ Ð½Ðµ ÑÐ¼Ð¾Ð³.<br>
<br>#!/usr/bin/perl<br>
use strict;<br>use warnings;<br><br>my $data = "aaa\nbbb\nccc\n";<br><br># Ð’ариант 1<br>close STDIN or die $!;<br>open( STDIN, '<', \$data ) or die $!;<br>@ARGV = ();<br>while (<STDIN>)<br>{<br>

    print "[[$ARGV]]***$_";<br>}<br><br># Ð’ариант 2<br>close STDIN or die $!;<br>open( STDIN, '<', \$data ) or die $!;<br>@ARGV = ();<br>while (<>)<br>{<br>    print "[[$ARGV]]***$_";<br>

}<br><br>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br>Andrei Protasovitski<br>< andrei[dot]protasovitski[at]gmail[dot]com ><br>Diemen, Netherlands<br>