Работа с файлами

@apelsun · Регистрация: 15.11.2012

Студворк — интернет-сервис помощи студентам

Помогите составить программу, которая на вход получает файл. Необходимо во второй строке поменять 3 и4 слово местами. Я начала, но немного запуталась и не знаю как поменять слова.

Perl

$file='text.txt';   //загрузить файл
open(FILE, '$file');
@lines=<FILE>;
close File;
Foreach $item (@lines{print '$item\n';
              } 
print '$lines[1]'; //вывести 2 строку на экран

@Sociopath · 15.11.2012, 20:27

Если в качестве разделителей пробелы, тогда можно сделать так:

Perl

#!/usr/bin/perl
my $file="text.txt"; #загрузить файл
open FILE, $file or die "Ошибка при открытии файла $file: $!"."\n";
@lines=<FILE>;
close FILE;
@line1 = split " ", $lines[1];
my $swap = $line1[2];
$line1[2] = $line1[3];
$line1[3] = $swap;
$lines[1] = join(" ", @line1)."\n";
print @lines;

Читаем строки из файла, потом разделяем вторую строку на слова (в качестве разделителей тут пробелы) потом меняем 3 и 4 местами и собираем вновь в элемент массива.

@apelsun · 15.11.2012, 20:54 **[ТС]**

Спасибо, а файл из которого читаем, где должен располагаться? Можно на рабочем столе или это не принципиально?

@Sociopath · 15.11.2012, 20:59

Нет, файл должен располагаться в одном каталоге с программой. Иначе нужно указывать полный путь к нему.

@easybudda · 16.11.2012, 16:46

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

поменять 3 и4 слово местами

Perl

#!/usr/bin/perl -w
use strict;
 
my $str = "one two three four five six";
$str =~ s/(\w+ \w+) (\w+) (\w+)/$1 $3 $2/;
print $str, "\n";

@TheAthlete · 17.11.2012, 12:39

Еще можно вот так:

Perl

use strict;
use warnings;
use feature 'say';
 
use Tie::File;
 
my $filename = 'test.txt';
 
tie my @lines, 'Tie::File', $filename or die "Ошибка при открытии файла $filename: $!";
 
my @line1 = split ' ', $lines[1];
($line1[2], $line1[3]) = ($line1[3], $line1[2]);
 
$lines[1] = join ' ', @line1;
 
say "Строка 2: $lines[1]";

@apelsun 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 10
	15.11.2012, 20:54 [ТС]	3
	Спасибо, а файл из которого читаем, где должен располагаться? Можно на рабочем столе или это не принципиально? 0

@Sociopath 3 / 3 / 0 Регистрация: 26.09.2012 Сообщений: 28
	15.11.2012, 20:59	4
	Нет, файл должен располагаться в одном каталоге с программой. Иначе нужно указывать полный путь к нему. 1

Опции темы