Невозможно прочитать файл RTF с помощью Perl на Mac

Question

Я пробую Perl на Mac. Я должен прочитать текстовый файл RTF. содержимое файла - «36» (без двойных кавычек). вот только два символа.

Вот код, который я должен прочитать.

#!/usr/bin/perl
use strict;
use warnings;

my $file = "verInfo.rtf";

unless(open FILE, $file) {
    # Die with error message
    # if we can't open it.
    die "\nUnable to open $file\n";
}

my $oldversion = <FILE>;

print "conent is $oldversion";

close FILE;

Помните, что все, что я хочу, это прочитать значение 36 из файла и сохранить его как целое число в $ oldversion

Но когда я читаю файл и распечатываю его, он печатает следующее

conent is {\rtf1\ansi\ansicpg1252\cocoartf1038\cocoasubrtf360

Я не умею читать 36.

Answer 1

Вы не читаете текстовый файл, вы читаете файл RTF. Вы сделали файл с TextEdit, верно? TextEdit по умолчанию сохраняет вещи как text / rtf, а не text / plain, если вы хотите сохранить файл как обычный текст, вам следует использовать «Format | Make Plain Text» (AKA Shift-Cmd-T) перед его сохранением; тогда вы получите простой текстовый файл с вашим "36".

Answer 2

Текст есть:

{\rtf1\ansi\ansicpg1252\cocoartf1038\cocoasubrtf360
                                                ^^

У вас есть файл RTF. Используйте анализатор RTF