Форум АНТИЧАТ - [Perl] Новичкам: задаем вопросы

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 127 из 156

127

Опции темы

Поиск в этой теме

Опции просмотра

#1261

27.10.2009, 05:37

GenTao

Участник форума

Регистрация: 10.10.2009

Сообщений: 133

Провел на форуме:
143706

Репутация: -1

Как осуществить запись в фаил?:

open(b,">s.txt);
print b "sam";
close(b);

В итоге пусто(

#1262

27.10.2009, 05:42

Pashkela

Динозавр

Регистрация: 10.01.2008

Сообщений: 2,841

Провел на форуме:
9220514

Репутация: 3338

Отправить сообщение для Pashkela с помощью ICQ

#!/usr/bin/perl
open(b,">>s.txt");
print b "sam";
close(b);

#1263

27.10.2009, 05:51

GenTao

Участник форума

Регистрация: 10.10.2009

Сообщений: 133

Провел на форуме:
143706

Репутация: -1

хмм,запись заработала,а вот чтение хромает:

open(b,"<s.txt");
print b STDOUT; # по всякому уже))разве что в другой фаил копирнуть могу,но на #консольку хотел
close(b);

#1264

27.10.2009, 06:12

Pashkela

Динозавр

Регистрация: 10.01.2008

Сообщений: 2,841

Провел на форуме:
9220514

Репутация: 3338

#!/usr/bin/perl
open(b, "<", "s.txt");
while(<b>) {
chomp;
print $_ . "\n";
}

#1265

27.10.2009, 06:38

Spyder

Members of Antichat - Level 5

Регистрация: 09.10.2006

Сообщений: 1,698

Провел на форуме:
9098076

Репутация: 4303

Цитата:

chomp;
print $_ . "\n";

0_o

__________________
God forgive me for I have sinned
It’s been six months since my last confession
There is nowhere that I can run to
My soul I place in your hands

#1266

27.10.2009, 07:58

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

Цитата:

Сообщение от GenTao

PHP код:


		
			


my @fuck = (1..10);

my @s = (18,19);



sub shit {



my(@x,@y) = @_;

print @x."\r\n";

print @y."\r\n";



}



shit(@fuck,@s);



system("PAUSE");

Выводит 12,0

.Хотел вывести значения обоих массивов...

Код:

#!/usr/bin/perl

use strict;
use warnings;

$\ = "\n";
my @fuck = (1..10);
my @s = (18,19);

sub shit {
  my ($x, $y) = @_;

  print join ', ', @$x;
  print join ', ', @$y;
}

shit (\@fuck, \@s);

#1267

27.10.2009, 23:40

bleeep

Новичок

Регистрация: 01.02.2009

Сообщений: 5

Провел на форуме:
41189

Репутация: 0

Подскажите как осуществлять поиск не в переменной $_ ?Допустим я открыл дескриптор файла, поместил содержимое файла в массив затем его преобразовал в строку и уже в этой строке как осуществить поиск?Постоянно присваивать переменной $_ ??? А если искать не в скаляре а в массиве?Так можно?))
Уже разобрался только не получается замена слова в текстовом файле((((

Код:

#!/usr/bin/Perl -w open (FILE,">>text.txt")||die "error $!"; @filetxt=<FILE>; $file=join ('',@filetxt);chomp $file; $file=~s/.*are.*/was/; print FILE $file; close(FILE);

В чем тут проблема???

Последний раз редактировалось bleeep; 28.10.2009 в 00:30..

#1268

28.10.2009, 00:59

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Отправить сообщение для Kaimi с помощью ICQ

Попробуй так

PHP код:


		
			
open(F, "<file.txt") || die $!;

undef $/;

my $file = <F>;

close F;



$file =~ s/.*are.*/was/; 



open(F, ">file.txt") || die $!;

print F $file;

close F;

#1269

28.10.2009, 21:35