Задать вопрос
@MDtox
perl

В чём ошибка в Perl?

$x = 0;
while($x <= 256) {
	chop;
	$x++;
print(chr($x)); 
}

Цель: Вывести все символы ASCII в столбик.
Результат: Вроде получилось, однако вывел не в столбик и снизу всё ещё отображаются ошибки.
  • Вопрос задан
  • 129 просмотров
Комментировать
Подписаться 1 Простой Комментировать
Решения вопроса 1
vaut
@vaut
Для вывода в столбик нужно перевод строки добавить print("\n") после print(chr($x))
Зачем вы от $_ откусываете символ перевода строки в цикле не ясно.

Перл может быть намного лаконичнее:
foreach(1..256){print (chr."\n")}
Ответ написан
2 комментария
2 комментария
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Программист 1С (Junior)
ДАЛКОС • Москва
от 150 000 ₽
Инженер технической поддержки
KeenTools • Ереван
от 70 000 до 135 000 ₽
Frontend Developer в Pixel Point
Pixel Point
от 2 200 до 3 000 $
Ещё вакансии
Заказы с Хабр Фриланса
Консультация по улучшению качества рендера
24 апр. 2024, в 14:24
5000 руб./за проект
Добавить WalletConnect к сайту на React
24 апр. 2024, в 14:02
5000 руб./за проект
HTML-вёрстка шаблонов для SaaS-сервиса
24 апр. 2024, в 13:45
15000 руб./за проект
Ещё заказы