форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форум Программирование под UNIX (Perl)
Изначальное сообщение		[ Отслеживать ]

"STDIN как вызов переменной."	+/–
Сообщение от Аноним (??) on 11-Фев-11, 17:56
Добрый день. Вот скрипт, задача - если на STDIN пришло "orange" то вывести переменную $orange те. "Апельсин" и так далее, хотелось бы обойтись без кучи if'ов. ----------------------- #!/usr/bin/perl -w use strict; use utf8; my $orange = 'Апельсин'; my $apple = 'Яблоко'; my $msg=(<STDIN>); $msg =~ s/(\n)//g; print "$$msg"; ----------------------- Скрипт выдает ошибку: Can't use string ("orange") as a SCALAR ref while "strict refs" in use at ./test.pl line 11, <STDIN> line 1. Если 'strict refs' убрать то: Use of uninitialized value in string at ./test.pl line 11, <STDIN> line 1. Warning: something's wrong at ./test.pl line 11, <STDIN> line 1. Ну или как правильно добиться нужной функциональности, заранее спасибо.
Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "STDIN как вызов переменной."	+/–
Сообщение от NuINu (??) on 11-Фев-11, 18:37
> Добрый день. > Вот скрипт, задача - если на STDIN пришло "orange" то вывести переменную > $orange те. "Апельсин" и так далее, хотелось бы обойтись без кучи > if'ов. добиться можно, но нужно ли? нужно использовать при обьявлении не my а local. !/usr/bin/perl                                                                                                                                                           use strict;                                                                                                                                                               #use warnings;                                                                                                                                                           #use utf8;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #no strict "vars";                                                                                                                                                       local $main::orange = 'Апельсин';                                                                                                                                         local $main::apple = 'Яблоко';                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             my $msg=(<STDIN>);                                                                                                                                                       chomp $msg;                                                                                                                                                                                                                                                                                                                                        print "msg_name: '$msg'\n";                                                                                                                                               { no strict 'refs';                                                                                                                                                       print "msg: '${$msg}'\n";                                                                                                                                                 }
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "STDIN как вызов переменной."	+/–
Сообщение от erera22 (ok) on 11-Фев-11, 18:50
>[оверквотинг удален] > print "$$msg"; > ----------------------- > Скрипт выдает ошибку: > Can't use string ("orange") as a SCALAR ref while "strict refs" in > use at ./test.pl line 11, <STDIN> line 1. > Если 'strict refs' убрать то: > Use of uninitialized value in string at ./test.pl line 11, <STDIN> line > 1. > Warning: something's wrong at ./test.pl line 11, <STDIN> line 1. > Ну или как правильно добиться нужной функциональности, заранее спасибо. Как-то все это гибло выглядит, не лучше так (на Perl): #!/usr/bin/perl -w use strict; my ($var) = @ARGV; exit 0 if !defined $var; my %hash = (    orange   => 'Orange',    apple    => 'Apple',    grape    => 'Grape', ); print "$hash{ $var }\n" if exists $hash{ $var }; на bash: #!/bin/bash var=${1} if [ -z ${var} ]; then    exit fi arr=(    orange=Orange    grape=Grape    apple=Apple ) result=$(echo ${arr[${var}]} | sed 's/^.*\=//') echo ${result}
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема