Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > perl + corntab

Автор: r00t 8.2.2005, 14:14

Код


################################################################################
#
#       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

Автор: korob2001 9.2.2005, 04:02

Цитата

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:39

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

Автор: korob2001 9.2.2005, 17:59

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