Ez itt egy perl átalakító, amely pontosvesszõvel elválasztott mezõket alakít át sxc(xls) formátumba és így kell futtatni:
cat data.csv | conv.pl

data.csv = pontosvesszõvel elválsztott mezõket tartalmazó file
conv.pl = ez a perl program
– a kimeneti file neve a processz azonosító (sxcPID.sxc) lesz
– numerikus cellákat is generál

---

perl program itt kezd?dik:
#!/usr/bin/perl -w
##########################################################
# ! EZ EGY PIPE PROGRAM !
# csv file atalakitasa sxc(xls)-be mezõtípus ellenõrzéssel

use strict;
use Spreadsheet::WriteExcel;

#my $pid = getppid();
my $pid = $$;
my $outfile = „sxc” . „$pid” . „.sxc”;
# my $outfile = „xls” . „$pid” . „.xls”;
my $maxrow = 64999; # az egy munkalapra irhato sorok szama

my $workbook = ”;
my $worksheet = ”;
my $wsnum = 0;
my $row = 0;
my $col = 0;
my $token = ”;

open (STDIN, „-„) or die „Error opening STDIN: $!”;
$workbook = Spreadsheet::WriteExcel->new($outfile);

while () {
chomp; # LF levagas
# s/15//; # CR kiszures
# s/14//; # FF kiszures

# codepage konverzio ha kell: 852 –> 1250
#tr [201351202212213220326224231232240241242243265340353373]
# [374332351325365311315366326334341355363372301323333373];

if ($row == 0) {
$wsnum++;
$worksheet = $workbook->addworksheet(„Munkalap”.”$wsnum”);
}

my @Fld = split(„;”, $_);
$col = 0;
foreach $token (@Fld) {
$token =~ s/^s+//;
$token =~ s/s+$//;
if (length($token) > 15) {
$worksheet->write_string($row, $col, $token);
} else {
if ($token =~ /(^-|^d+)(,?d*)*.?d*$/ && $token ne ‘-‘) {
$token =~ s/,//g;
$worksheet->write_number($row, $col, $token);
} else {
$worksheet->write($row, $col, $token);
}
}
$col++;
}
$row++;

# Ha a sorok száma több mint maxrow (65000)
if ($row > $maxrow) {
$worksheet->write_string($row + 1, 0,”Folytatás a következõ munkalapon…”);
$row = 0;
}
}

$workbook->close($outfile) or die „Error closing output file: $!”;
close(STDIN) or die „Error closing pipe file: $!”;

---

Vége

ELaci :rolleyes:

ELaci!

Végre egy konkrétum, már nagyon vártam eree.

Adatokat szeretnék egy elõre megformázott OpenOffice táblázatba beletenni programból és elmenteni más néven!
Merre kutakodjak v. esetleg tud valaki ebben a témában konkrétan segíteni?
Nagyon megköszönném!

xls file elöállításához én a Perl -t használom.
Modulnév: Spreadsheet:Write:Excel
Forrás: http://search.cpan.org

Ha érdekel a téma akkor bövebben írok róla.

ELaci

Több feltétele van annak hogy az NFS menjen:

1. a 127.0.0. kezdetû IP tartomány úgy tudom foglalt a localhost -ra.
2. Az RPC (Remote Procedure Call) utilok telepítve kell hogy legyenek a gépen.
3. Futnia kell az nfs daemonoknak: nfsd (rpc.nfsd), esetleg: nfslockd (rpc.nfslockd)
4. Az /etc/exports fileban legyen(ek) bejegyzés(ek)
pl.: /dir host.domain.nev(rw,sync)
/dir jelenti a mountolni kivánt könyvtárat a szerveren
host.domain.nev(rw,sync) jelenti hogy kinek a részére és milyen engedélyekkel
5. futtatni kell: exportfs -a
ekkor ezek beírodnak a /var/lib/nfs/xtab -ba
6. a másik géprõl ki kell adni: mount host:/dir /mnt/dir
itt mountolódik az /mnt/dir be a másik gép dir-je
7. ha a dolog mégsem mûködne akkor be kell írni a ~/.rhosts -ba: host
(mármint a host = a másik gép neve)

ELaci :rolleyes:

Szóval szeretnék a suse 9.0-ás gépemre rcp-vel másolni root-ként, de mindig a permision denied üzenetet kapom. Egyéb felhasználóként mûködik a dolog csak root-ként nem.