VPF::perl + corntab - Форум программистов

r00t

Дата 8.2.2005, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 5.1.2005

Репутация: нет
Всего: нет

Код


################################################################################
#
#       SUBROUTINE: sort_output_command
#
#       ARGUMENTS: None
#
#       GLOBAL VARIABLES USED: None
#
#       RETURNS: Nothing
#
#       ABSTRACT: Takes a checkpoint and sorts the output
#
################################################################################
sub sort_output_command {

    # Declare local variables
    local( $line, $file, $tmp_file );

    # Get the checkpoint file
    $file = &get_checkpoint_file();
    return ( 1 ) if ( !defined( $file ) );

    # Rename the checkpoint file to a temporary file
    $tmp_file = "${file}__temp";
    rename( $file, $tmp_file );

    # Open up the files
    open( TMP_FILE, $tmp_file ) || &test_error( "Could not open tmp file" );
    open( CP_FILE, "| sort >$file" ) || &test_error( "Could not open cp file" );

    # Read all lines from the file, filtering as necessary
    while ( $line = <TMP_FILE> ) {
                        printf( CP_FILE "%s", $line );
    }

    # Close the files
    close( TMP_FILE );
    close( CP_FILE );

    # Remove the TMP file
    unlink( $tmp_file );
}

why when I run it by hand it returns Case-insensitive sort, but when it runZ crontabd it returns Case-sensitive sort

Это сообщение отредактировал(а) r00t - 9.2.2005, 12:36

korob2001

Дата 9.2.2005, 04:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Цитата

why when I run it by hand it returns Case-insensitive sort, but when it runZ crontabd it returns Case-sensitive sort

А по русски слабо? Я бы, с удовольствием, постарался бы, тебе помочь, но к сожелению ленгвича не знаю, пробовал догадаться логически, но ошибок у тебя в коде не нашёл. Знаю только русский, украинский, нидерландский.
Если не трудно, напиши на одном, из выше-перечисленных, языке.

Это сообщение отредактировал(а) korob2001 - 9.2.2005, 04:07

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

r00t

Дата 9.2.2005, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 5.1.2005

Репутация: нет
Всего: нет

pochemu kogda zapuskayu skrip cherez crontab on sortiruet chustvitel'no k reestru, a kogda v ruchnuyu ne chustvitel'no k reestru

p.s. fontov netu vot i prixoditsya na angliski pisat', a to chto to rulyoznaya toolza "транслит" baraxlit

Это сообщение отредактировал(а) r00t - 9.2.2005, 12:40

korob2001

Дата 9.2.2005, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Помоему проблема не в Perl, потому как ты открываешь поток и сортируешь с помощью оболочки. Почему не хочешь сортировать с помощью Perl? Файлы большие?

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »