С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
*NIX
Войти
Регистрация
Восстановить пароль
 
Valentin-TT
0 / 0 / 1
Регистрация: 20.04.2015
Сообщений: 135
1

Из perl в bash

10.06.2017, 19:42. Просмотров 239. Ответов 1

Кто может перевести из perl в bash??
Имеется такой код но нужен код в bash, кто могёт?)

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#!/usr/bin/perl
 
use strict;
use warnings;
use Text::ParseWords;
 
# ----------------------------------------------------------------------------------------
 
print "\nRead file 'query4_orders' ...\n";
print "----------------------------------------------\n";
 
open(InFile,  "<query4_orders") || die;
open(InEmpl,  "<query1_city") || die;
 
my @empl = <InEmpl>; # Read all file 'query1_city' into array @empl
my @saler = (); # Array for found saler_name from file 'query4_orders'
my @city = (); # Array for result this task ...
my %tmp = ();
 
while (my $line = <InFile>)
 
    {
 
        if( $line =~ /ФЕВ-2011/ ) {
 
            print "\nline (query4_orders): $line";
 
            $line =~ s/ +/ /g; # Remove multi-space
 
            my @new = quotewords(" ", 0, $line); # Parsing $line into array @new 
 
         print "orders(saler_name): $new[1]\n";
 
            push(@saler, $new[1]); # Insert found value in array @saler
 
        }
 
    }
 
print "\narray 'saler'(unsorted)::@saler\n";
 
# Sorting array
@saler = sort @saler ;
print "array 'saler'(sorted)::@saler\n";
 
# Remove duplicate values
@saler = grep {! $tmp{$_}++ } @saler;
print "array 'saler'(uniq)::@saler\n";
 
###----------------------------------------------------------
 
print "\n\nSearch data in the 'query1_city':\n";
print "----------------------------------------------\n";
 
foreach my $arg (@saler)
 
    {
 
        print "\nList item: $arg\n";
 
        my @result = grep /$arg/, @empl;
 
        my @res_city = quotewords("\t", 0, @result);
        for(@res_city){print "$_ "};
 
        push(@city, $res_city[6]);
 
    }
 
print "\narray 'city'(unsorted)::@city\n";
 
# Sorting array
@city = sort @city;
print "array 'city'(sorted)::@city\n";
 
# Remove duplicate values
@city = grep {! $tmp{$_}++ } @city;
print "array 'city'(uniq)::@city\n";
 
print "\n\nResult (list of cities)::@city\n";
 
close ( InFile );
close ( InEmpl );
 
# ----------------------------------------------------------------------------------------
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2017, 19:42
Ответы с готовыми решениями:

Генерация списка IP циклом bash
Добрый день, форумчане! Встала задача &quot;порезать&quot; всем пользователям download...

Не могу поставить BASH на freeBSD 8.1
Добрый вечер. Помогите пожалуйста вот с каким делом: Нужно поставить bash на...

Модули GD и GD::Graph для Perl 5.8.9
Пытаюсь установить модуль GD для Perl, но почему то возникает ошибка... perl...

Bash alias в Mac OS
Всем доброго времени суток!!! Система OS X EL Capitan версия 10.11.2 ...

PyCharm: настройка стиля автозаполнения как в bash или perl
Друзья вопрос по сабжу. Начал осваивать эту IDE, поковырял Settings на предмет...

1
Dimofey
1 / 1 / 1
Регистрация: 16.12.2013
Сообщений: 52
14.04.2018, 21:10 2
Боюсь "сделайте за меня и бесплатно" не выйдет, хотя может ошибаюсь. Я лишь подскажу примерно как заменить некоторые операторы:
print заменяется на echo
Вот так примерно парсил строку, у вас будет иначе:

Bash
1
2
3
4
5
6
 $1=filename;
   while read f_line; do
    v_str_cnt=$(( ${v_str_cnt} + 1 ))
    if [[ ${f_line} == "" ]]; then continue; fi # Игнорируем пустые строки
    tmp_line= ${f_line}
   done < $1
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2018, 21:10

Perl, Bash. Генерация сайта: фотогалерея, блог, mp3. Управление материалами.
Представляю Вашему вниманию - генератор сайта с управлением через жаббер. Bash...

Задачки на понимание Perl (Скользкие места Perl)
Задача на понимание списочных литералов что выведет каждая из строк $num...

Графика в Perl, как создать GIF в Perl.
Помогите создать GIF при помощи перла. И где взять модули?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru